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ABSTRACT 



The technical feasibility of developing an expert 
system to support the assignment of squadron mainten- 
ance personnel to authorized billets is examined by 
building a prototype system. The rules used by an 
assistant maintenance officer to assign personnel are 
analyzed, and a database derived from the OPNAV 1000/2 
and EDVR is designed. The prototype is developed for a 
micro-computer system using an expert system shell, 
Insight 2 + , and is fully integrated with dBase III 
files . 
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THESIS DISCLAIMER 



The reader is cautioned that computer programs 
developed in this research may not have been exercised 
for all cases of interest. While every effort has been 
made, within the time available, to ensure that the 
programs are free of computational and logic errors, 
they cannot be considered validated. Any application 
of these programs without additional verification is at 
the risk of the user. 
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I. INTRODUCTION 



One of the duties of the assistant maintenance 
officer in an aviation squadron is to assign main- 
tenance personnel to the various squadron maintenance 
billets. Specifically, the NAMP [Ref. 1] defines his 
responsibility as: 

Determine the apportionment of maintenance personnel 
assigned to the department and monitor /coordinate 
the assignment of Temporary Additional Duty (TAD) 
personnel to other activities. 

The assistant maintenance officer must take into 

account details such as when personnel are leaving the 

squadron, personal qualifications, training and 

duration of the job. 

The purpose of this thesis is to demonstrate that 
it is technically feasible to build an expert system 
which assigns aviation maintenance personnel to 
appropriate billets. The technical feasibility will be 
demonstrated by building a rule-based expert system 
prototype which accesses database files to determine 
how to assign personnel to billets. The required 
inputs consist of two database files, one which 
contains all the squadron billets, and the other holds 
all the squadron personnel information. The output is 
a file containing the billet, the person to be assigned 
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to the billet, and, when required, the prospective 
person who will fill the billet in thirty days or less. 

The prototype differs from expert systems which 
search several different alternatives until an accept- 
able one is found. Instead, it provides a single 
acceptable solution. It also differs from most expert 
systems in that the user interaction is done almost 
exclusively through database files with minimal 
interaction with the user. To verify the expert system 
under realistic conditions, simulated databases of 
billets and personnel from an F/A-18 squadron were 
created . 

Chapter II provides a statement of the problem 
definition. It also defines the scope, objectives and 
constraints in building the expert system. Chapter III 
describes the analysis of the problem and the initial 
rules considered for the prototype. Chapter IV 
addresses the implementation of the expert system. 
Chapter V discusses recommendations for further 
modifications of the prototype system. Chapter VI 
presents the conclusion of this project. 
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II. PROBLEM DEFINITION 



The assistant maintenance officer rotates out of 
the squadron at least every three years, taking with 
him the knowledge and expertise he has accumulated. He 
is usually replaced by a less experienced person, and 
it can take up to six months to get the person trained 
to the point where he manages the functions of assign- 
ing personnel and scheduling training efficiently and 
effectively . 

The assistant maintenance officer uses information 
from several sources to make decisions as to where to 
assign personnel. One of the main documents is the 
Manpower Authorization (OPNAV 1000/2) which is the 
military manpower requirements authorized by the Chief 
of Naval Operations (CNO). It is the official or- 
ganization manning and billet authorization for a 
squadron. It identifies the billet sequence code, the 
billet/position title, designated rate, Navy Enlisted 
Classification (NEC) code, the number of persons 
authorized (basic allowance), and the planned authori- 
zations for the next five fiscal years. 

Another primary document is the Enlisted Distribu- 
tion and Verification Report (EDVR). This report 
reflects all individuals assigned to the activity, 
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including prospective gains. It contains a roster of 
all personnel, and includes their social security 
numbers, rates, NEC’s, date assigned to the squadron, 
projected rotation date (PRD), and the end of active 
obligated service date (EAOS). 

The assistant maintenance officer must also know 
what temporary additional duty (TAD) billets have to be 
filled. The TAD requirements vary depending on whether 
the squadron is stationed at a Naval Air Station (NAS) 
or on board a carrier. The specific requirements are 
spelled out in the appropriate NAS, wing or ship 
instructions. Most of the TAD billets are of ninety 
days duration and usually only junior personnel (El 
through E3 ) are assigned to them. 

Other factors which must be taken into account when 
assigning personnel are special qua.lif ications a person 
might have. These include collateral duty inspector 
(CDI), quality assurance representative ( QAR ) , plane 
captain (PC), and ordnance certification. The assis- 
tant maintenance officer by virtue of his position in 
the squadron should simply know what qualifications 
each person has. The information can be also obtained 
from the monthly maintenance plan. 



A. 



OBJECTIVES 



The objective is to build a prototype expert system 
which can assign personnel to billets. Its utility is 
that it will improve the assistant maintenance 
officer’s decision making by offering an "expert" 
solution to the problem. It should also decrease the 
time it takes to train a new person to administer the 
program. Solving this problem is important because the 
assignment of personnel to billets and tracking of TAD 
personnel is one of the assistant maintenance officer’s 
more time consuming activities. It involves numerous 
variables and constantly changing data, and access to 
an "expert" consultant would allow him to spend more 
time on squadron training requirements and other 
personnel matters. 

B. SCOPE 

This expert system application is limited to the 
squadron maintenance environment and it emphasizes 
automation of one of the assistant maintenance of- 
ficer’s functions. It is limited to the assignment of 
persons to suitable billets within certain constraints, 
and that the assignments it recommends are as good as 
the assignments made by an experienced person. The 
assignment of personnel is very subjective, and even 
acknowledged experts can have wide differences of 



opinions. Therefore, it is not possible to prove that 
any particular assignment of personnel is the optimum 
assignment, and there is no attempt to claim that the 
expert system generated solution is an optimal 
solution . 

The project is further limited to application on a 
personal computer since most squadrons have micro- 
computers and access to larger machines on board ships 
is unlikely. In addition, relatively inexpensive 
software for expert system shells and database managers 
is readily available for micro-computers. 

C. CONSTRAINTS 

1 . Har dware 

The computer hardware selected for this project 
is an IBM-PC or compatible machine. It was selected 
because of the availability of several commercial 
products for expert systems and database managers in 
the MS-DOS operating environment. The minimum require- 
ments are 51 2K internal memory and two disk drives. A 
hard disk drive is not necessary, however it is highly 
desirable. The prototype was built and tested on an 
IBM- AT . 

2 . Software 

Waterman [Ref. 2] suggests several questions to 
consider when choosing the expert system tool. Does it 



have the power and sophistication needed? Are the 
support facilities adequate, especially when consider- 
ing time constraints? Is it reliable and is it 
maintained? Does it have the features that will be 
required to solve the problem? 

Insight 2+ was selected as the expert system 
tool primarily because of two features: its capability 
to access dBase III files and its user-friendliness. 
Insight 2+ has a built-in programming language (DBPAS) 
which allows the knowledge base to access dBase III 
files. Insight’s similarities to Turbo Pascal and 
Wordstar make the system easy to learn. Insight 2+ 
comes with an ASCII parameter passing program written 
in Turbo Pascal which allows the user to write Turbo 
Pascal programs and pass parameters between the 
knowledge base and a compiled Turbo Pascal program. 
Also, the DBPAS programming language is very similar to 
Turbo Pascal with some modifications for the dBase III 
functions. The text editor in Insight 2+ uses the 
Wordstar command set for editing both knowledge base 
programs and DBPAS programs. 

Insight’s capabilities are limited to develop- 
ment of small expert systems of less than 400 rules. 

The development of this prototype was expected to be in 
the range of 100 rules, hence Insight was more than 
adequate to meet the requirements. 



dBase III was selected for this project because 
of its compatibility with Insight 2+. dBase III is a 
relational database, and has the capability of handling 
a typical aviation squadron database of approximately 
200 personnel. An additional consideration in choosing 
dBase III was my familiarity with it. 



III. ANALYSIS 



The goal of the analysis phase was to determine how 
the problem should be solved. The first step in the 
process was to study the present system and obtain a 
good understanding of the physical system. The second 
step was to develop the initial rules that would form 
the basis for building the knowledge base. The last 
step was to define the data files and data elements 
used by the knowledge base. 



A. CURRENT PHYSICAL SYSTEM 

In the current system, the squadron assistant 
maintenance officer uses information from several 
different sources before making personnel decisions. 

The information that is routinely used to determine 
which billets are authorized comes from the Manpower 
Authorization (OPNAV 1000/2) and local instructions 
which specify TAD requirements. The information from 
the OPNAV 1000/2 required by the knowledge base is the 
billet /position title, designated rate. Navy Enlisted 
Classification (NEC) code, and the number of persons 
authorized. The TAD billet information required by the 
knowledge base includes the billet description, number 
of days the TAD tour lasts, and the required paygrade. 



The information that determines personnel on board 
and their qualifications comes from the EDVR and from 
internal squadron sources. The EDVR information used 
to assign personnel is the list of personnel and 
prospective gains, rate, NEC, date assigned to the 
squadron, PRD, and EAOS. Special qualifications 
include CDI, QAR, PC, and ordnance certification. 

One approach that an assistant maintenance officer 
takes is to review each billet looking for personnel 
changes. If a person is currently filling a billet 
(which is not a TAD assignment) and his PRD/EAOS are 
not within the next thirty days, then that person will 
remain in the same billet. However, if a person will 
be leaving the squadron in the next thirty days because 
of PRD or EAOS, then a replacement has to be found. In 
the case of TAD billets, if a person’s time in the 
billet exceeds ninety days, then a replacement has to 
be found. 

The assistant maintenance officer determines the 
requirements necessary to fill a position by looking at 
the work center and knowing what rates can be assigned 
to that work center. If the billet is in work center 
110, the power plants branch, then an "AD" or aviation 
machinists mate is required. If the billet is in work 
center 120, airframes branch, then both "AMH" , aviation 
structural hydraulics, and "AMS", aviation structural 



mechanic, personnel are required. In work center 12C, 
corrosion control branch, "AMS" personnel are assigned. 
In the aviation life support systems branch, work 
center 1 3A requires parachute riggers, "PR" rating, and 
work center 13B requires "AME" , aviation structural 
mechanic egress, personnel. 

Aviation electronics technicians, "AT" rating, are 
assigned to work center 210, the electronics branch, 
while aviation electrician mates, "AE" , are assigned to 
work center 220, the electrical/instrument branch. The 
armament branch, work center 230, has "AO", aviation 
ordnanceman, personnel. If a billet is in work center 
260, the radar/fire control branch, then an "AQ", 
aviation fire control technician is assigned. In the 
line division, work centers 310, plane captains branch, 
and 320 troubleshooter branch, persons of any rating 
can be assigned. 

Administrative personnel include "AZ", aviation 
administr at ionman , and "AK" , aviation storekeepers, 
personnel. AZ ’ s are assigned to work center 04C as the 
data analyst, work center 04A as the Quality Assurance 
librarian, work center 020 as a maintenance control 
clerk, or work center 030 as a maintenance administra- 
tion clerk. AK ’ s are assigned to the material control 
branch, work center 050. 



Other considerations in assigning personnel are 
their special qualifications. A quality assurance 
representative (QAR) should he a senior petty officer, 
preferably E6 or above, and have a well-rounded 
maintenance background. They are responsible for 
performing inspections of critical maintenance tasks 
which require a final quality assurance inspection. 

They also monitor the performance of collateral duty 
inspectors. QAR ’ s are assigned to the quality assur- 
ance division, work center 04-0, and typically one 
person from each production work center is required. 

For example, a squadron will usually have one QAR from 
each of the following ratings: AD, AMH or AMS, AME, AT, 
AE , AO and AQ . It is also possible to temporarily 
assign a person from a work center on a collateral duty 
basis, CDQAR , however, for this prototype CDQAR ’ s were 
not considered. A collateral duty inspector (CDI) is 
another special qualification. CDI’s are required to 
inspect all work and comply with quality assurance 
inspections required for the maintenance performed in 
their work center. CDI’s are screened very carefully 
before being designated as a CDI. Because of the time 
it takes to qualify personnel as a CDI or QAR, one of 
the assistant maintenance officer’s priorities is to 
keep them in the corresponding work center . 
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Other qualifications ordnance certification for 
personnel in work center "230" and plane captain 
designation in work center "310". Usually, personnel 
who have these qualifications should be assigned to 
that work center . 

This is the beginning of the process to translate 
the on the job knowledge to rules for the expert 
system. In the next section, the initial rules will be 
developed based on reasoning similar to the above. 



B. DEVELOPING THE INITIAL RULES 

In developing the initial rules, there are two 

conditions which have to be met before the knowledge 

base has completed its task. The first condition is 

that the knowledge base has checked each billet in the 

billet database and a person has been assigned to the 

billet. The second condition is that the knowledge 

base has verified each person in the personnel database 

is assigned to a billet. To put the rule in a format 

similar to Insight 2+, it will read: 

IF all billets are filled 
AND all personnel are assigned 
THEN AMO is done 

To fill a single billet the requirements are to go 
to the billet database and get the next billet, then 
search the personnel database and find a person who 
meets the billet requirements. Also, the knowledge 



base will have to determine if it needs a prospective 

person, and, if so, find a replacement person for the 

billet. For example, the rule might be: 

IF have a billet 

AND have a person 

AND have a prospective person 

THEN one billet was filled 

Once the knowledge base has a billet, the search 
for a person to fill the billet becomes more involved. 

A person must have a rating which is appropriate for 
the work center. Also, it is generally desirable to 
assign a person to the job he is currently in. If the 
current person cannot be used, then the knowledge base 
must search for a person who meets the billet require- 
ments. Additionally, personnel with special qualifica- 
tions should be considered first for billets in work 
centers where those qualifications are desired. Some 
of the initial thoughts for rules that determine if a 
person meets the billet requirements are shown below. 

IF work center = "110" 

AND person’s rating = "AD" 

THEN person is eligible for billet 

IF work center = "120" 

AND billet requirement = "AMH" 

AND person’s rating = "AMH" 

THEN person is eligible for billet 

IF work center = "120" 

AND billet requirement = "AMS" 

AND person’s rating = "AMS" 

THEN person is eligible for billet 
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IF work center = "12C" 

AND person’s rating = "AMS" 

THEN person is eligible for billet 

IF work center = "12A" 

AND person’s rating = "PR" 

THEN person is eligible for billet 

IF work center = "13B" 

AND person’s rating = "AME" 

THEN person is eligible for billet 

IF work center = "210" 

AND person’s rating = "AT" 

THEN person is eligible for billet 

IF work center = "220" 

AND person’s rating = "AE" 

THEN person is eligible for billet 

IF work center = "230" 

AND person’s rating = "AO" 

THEN person is eligible for billet 

IF work center = "260" 

AND person’s rating = "AQ" 

THEN person is eligible for billet 

IF work center = "020" 

AND rating <= "E6" 

AND person’s rating = "AZ" 

THEN person is eligible for billet 

IF work center = "030" 

AND person’s rating = "AZ" 

THEN person is eligible for billet 

IF work center = "04A" 

AND person’s rating = "AZ" 

THEN person is eligible for billet 

IF work center = "04C" 

AND person’s rating = "AZ" 

THEN person is eligible for billet 

IF work center = "050" 

AND person’s rating = "AK" 

THEN person is eligible for billet 
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IF billet requires an NEC 
AND person has NEC 

THEN person is eligible for billet 

IF production work center 
AND person is a CDI 

THEN person is eligible for billet 



IF 


work 


center 


= 


"110" 


OR 


work 


center 


= 


" 1 20" 


OR 


work 


center 


= 


" 1 2C 


OR 


work 


center 


= 


"1 3A" 


OR 


work 


center 


= 


"13B" 


OR 


work 


center 


= 


"210" 


OR 


work 


center 


= 


"220" 


OR 


work 


center 


= 


"230" 


OR 


work 


center 


= 


"260" 


THEN production 


work center 


IF 


work 


center 


= 


"040" 



AND person is a QAR 

THEN person is eligible for billet 

IF work center = "230" 

AND person is ordnance certified 
THEN person is eligible for billet 

IF work center = "310" 

AND person is a plane captain 
THEN person is eligible for billet 

IF billet is currently filled 
AND the person hasn’t been assigned 
AND PRD is ok 
AND EAOS is ok 

AND hasn’t been in the job too long 
THEN have a person 

IF billet is currently filled 

AND the person hasn’t been assigned 

AND PRD is ok 

AND EAOS is not ok 

AND person intends to reenlist 

AND hasn’t been in the job too long 

THEN have a person 
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IF have a possible person 

AND person meets billet requirements 

AND the person hasn’t been assigned 

AND PRD is ok 

AND EAOS is ok 

THEN have a person 

IF have a possible person 

AND person meets billet requirements 

AND the person hasn’t been assigned 

AND PRD is ok 

AND EAOS is not ok 

AND person intends to reenlist 

THEN have a person 

The next requirement is to find a prospective 

person. A prospective person is needed only if the 

current person is checking out of the squadron in 

thirty days or less. For example: 

IF have a person 

AND PRD > 30 days from today 

AND EAOS > 30 days from today 

THEN don’t need a prospective person 

IF have a person 

AND PRD > 30 days from today 

AND EAOS <= 30 days from today 

AND person intends to reenlist 

THEN don’t need a prospective person 

The same set of rules that applies to "have a person" , 

as already discussed, can then be applied in searching 

for a prospective person. 

Once all the billets have been checked, then a 
review of all squadron personnel will determine if all 
personnel are assigned. This is the last step which 
must be completed prior to the knowledge base reaching 
its goal. It involves first checking the new billet 
assignments to see if that person has been assigned. If 
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the person has been assigned, then the knowledge base 
continues to the next person in the database. Other- 
wise, if the person has not been assigned, then it must 
find a work center to assign the person to. The rules 
for assigning these personnel are: 

IF person was assigned to a work center 



THEN assign 


to same work center 


IF person’s 
THEN assign 


rating = "AD" 
to work center 110 


IF person’s 
THEN assign 


rating = "AMH" 
to work center 1 20 


IF person’s 
THEN assign 


rating = "AMS" 
to work center 1 2C 


IF person’s 
THEN assign 


rating = "PR" 
to work center 1 3A 


IF person’s 
THEN assign 


rating = "AME" 
to work center 1 3B 


IF person’s 
THEN assign 


rating = "AT" 
to work center 210 


IF person’s 
THEN assign 


rating = "AE" 
to work center 220 


IF person’s 
THEN assign 


rating = "AO" 
to work center 230 


IF person’s 
THEN assign 


rating = "AQ" 
to work center 280 


IF person’s 


rating = "AZ" 



THEN assign to work center 020 

IF person’s rating = "AK" 

THEN assign to work center 050 
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C. DATA DEFINITION 

After examining the physical system, the need for 
well-defined database was clear. The major consider- 
ations were selecting the key fields and defining the 
data structures for both the input data and the output. 
The data dictionary is listed in Appendix A, and the 
data file structures are in Appendix B. 

The data structure diagram (or Bachman diagram) is 
shown in Figure 3.1. It shows the relationships 
between records in the various data files. 



JOBS 




PERSONEL 


> 


NEW_JOBS 











NEC 




PERSINFO 




REENLIST 



Figure 3.1 Data Structure Diagram 
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The input data files will be discussed first. The 
squadron billet file, JOBS. DBF, contains the billet 
number, billet description, work center, minimum 
paygrade acceptable for this billet, maximum paygrade 
acceptable for this billet, rating, the social security 
number of the person currently filling this billet, the 
social security number of a prospective person to fill 
the billet, the job length, if an NEC is required, and 
the NEC if one is required. The billet number was 
selected as the key field since it uniquely identifies 
each billet. It is also used to identify the priority 
of each billet. The smaller the billet number, the 
higher the priority, and JOBS. DBF file should be sorted 
in billet number sequence. 

The structure of this file, JOBS. DBF, contains some 

of the information that was initially considered for 

implementation as a rule. For example, the rule: 

IF work center = "110" 

AND person’s rating = "AD" 

THEN person is eligible for billet 

can be accomplished using the database and the DBPAS 

programs. When the information from JOBS. DBF is 

retrieved, it contains the work center and the paygrade 

and rating required for the billet. The paygrade and 

rating can then be passed to the DBPAS program which 

searches the PERSONEL.DBF file. It will then return 

only personnel who fill the paygrade and rating 
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requirements, thus meeting the conclusion "person is 
eligible for billet". The specific implementation of 
DBPAS programs is discussed more fully in chapter IV. 

The other sources of input data come from four 
personnel files. In all of the personnel files, the 
key field is social security number. The PERSINFO . DBF 
file lists a person’s first, middle and last names, 
social security number, and rate. The PERSONEL . DBF 
file includes a person’s social security number, 
rating, paygrade, date reported to the squadron, PRD, 
EAOS , current billet assignment, date started current 
billet, previous billet assignment, total days assigned 
to that billet, if person is qualified as a CDI, the 
work center where qualified as a CDI, if person is 
qualified as a QAR , if person is qualified as a plane 
captain, if person is designated as ordnance certified, 
if the person is a designated striker, and the rating 
for which he is striking. The NEC. DBF file contains a 
person’s social security number and NEC. Since a 
person can have many NEC’s, NEC was not included in the 
PERSONEL. DBF file. The REENLIST. DBF file includes a 
person’s social security number and if he intends to 
reenlist at his EAOS. This is the only information 
which is not in the database before starting the expert 
system. If the information becomes necessary, the 
expert system prompts the user, and the result is 
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stored in the file in case it is needed for future 
reference . 

The output file is a list of billets, the person to 
be assigned to that billet, and, if necessary, a 
prospective person to fill the billet. To simplify the 
output file, NEW_JOBS . DBF , contains only the billet 
number, the social security number of the person 
assigned, and the social security number of the 
prospective person. Since the knowledge base goes 
through the JOBS. DBF file sequentially, NEW_JOBS.DBF 
will be listed in the same sequence as JOBS. DBF. If 
there are additional personnel who are not assigned 
after all billets are filled, then they are assigned to 
a work center. To simplify identif icat ion of these 
billets in the database, a billet number of 9999 is 
assigned and the work center is identified where the 
prospective person’s social security number would 
otherwise be. 
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IV. IMPLEMENTATION 



The first step taken to implement this prototype 
was to write database interface programs. The inter- 
faces are written in Insight’s DBPAS language and the 
source code is included in Appendix C. In addition, 
two Turbo Pascal programs are listed in Appendix D. 
Turbo Pascal was utilized because it could perform some 
specific functions that could not be accomplished using 
DBPAS. The next phase was writing and testing the 
expert system rules. The knowledge base listing is 
shown in Appendix E. 

The flow diagrams of the expert system are shown in 
Figures 4.1 through 4.5. They provide an overall view 
of the system implementation and show how the database 
programs interface with the knowledge base. The flow 
diagrams are intended to show the high level logical 
flow, and do not show every possible path through the 
knowledge base. 

A. DATABASE INTERFACES 

The knowledge base uses recursion to cycle through 
the JOBS. DBF file. A billet counter is incremented at 
each level of recursion and a billet end of file 
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Flow Diagram For "one billet is filled" 
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Figure 4.5 Flow Diagram For "one person is assigned" 
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variable identifies when all billets have been filled. 



The program GET_BILL.PAS receives the billet counter 
from the knowledge base, goes directly to that record, 
and returns the billet requirements and if the end of 
file was reached. The JOBS. DBF must be packed, i.e. 
not have any deleted records, since GET_BILL . PAS does 
not check for deleted records and will return whatever 
information is in that record. 

Once the knowledge base has a billet, it will try 
to fill the billet using rules and the personnel 
database, PERSONEL . DBF . There are four DBPAS programs 
which get personnel data depending on the requirements. 

The module GET_PSSN.PAS is used when the billet 
database, JOBS. DBF, has a person assigned as currently 
filling the billet or as a prospective person for the 
billet. The knowledge base sends a social security 
number to GET_PSSN . PAS which searches the personnel 
database until it locates that record, then it returns 
all the personnel data in that record to the knowledge 
base . 

The program GET_PERS.PAS is used by the knowledge 
base when it does not have a person currently assigned 
to the billet or the person who was assigned has either 
been reassigned to a higher priority billet or is 
leaving the squadron. The knowledge base sends the 
record number in the personnel database where 
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GET_PERS.PAS should begin the search, the desired 
rating and the paygrade. GET_PERS.PAS returns a 
boolean variable identifying if a person of that rating 
and paygrade was found, the current record number and 
the person’s data (if a record was found). If the 
knowledge base receives a person’s record, it applies 
different rules to see if that person meets all the 
requirements of the billet. If the person meets all 
the requirements, then he is assigned to the billet; 
otherwise the knowledge base increments the personnel 
record counter, and calls GET_PERS.PAS which starts the 
search again. If GET_PERS.PAS did not locate a person 
with the right rating and paygrade, the knowledge base 
will call another module, NEXT_PG.PAS, which receives 
the current paygrade and returns the next lower pay- 
grade. Then the knowledge base uses rules to check if 
the new paygrade is greater than or equal to the 
minimum requirements of the billet. If it is, then the 
knowledge base resets the personnel record counter to 
the beginning of the database and calls GET_PERS.PAS to 
continue searching for a person with the right rating 
and paygrade. 

The other two program which get personnel data are 
GET_SSN . PAS and GET_PRSN . PAS . Both are used to check 
if all personnel have been assigned. Once the knowl- 
edge base has completed all billet assignments, it uses 
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recursion to repeatedly check the personnel database to 
ensure all personnel have been assigned. It begins by 
initializing the personnel record counter and calling 
GET_SSN . PAS which returns the person’s social security 
number and a boolean variable indicating if the end of 
file was reached. The knowledge base sends the 
person’s social security number to GET_PRSN.PAS which 
checks the NEW_JOBS.DBF to see if that social security 
number has been assigned to a billet. If so, the 
knowledge base increments the personnel record counter, 
and repeats the process until the end of the personnel 
file is reached. If the person has not been assigned 
to a billet, then the knowledge base calls GET_PRSN.PAS 
which gets the person’s record from the personnel 
database so that the knowledge base can apply the 
necessary rules to assign this additional person to a 
work center . 

During the process of assigning the additional 
personnel, the knowledge base applies information such 
as the previous billet held, the work center and the 
job length. When the program WORK_CTR.PAS is called, 
it receives a billet number, searches through the 
JOBS. DBF file and returns the work center and the job 
length of that particular billet. 

The module, WRITE_IT . PAS , is used anytime the 
knowledge base has matched a billet to a person and a 
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prospective person. The program receives the billet 
number, the person’s social security number and the 
prospective person’s social security number and appends 
the NEW_J OBS . DBF file. 

The knowledge base calls CHECK_NJ.PAS when it has a 
possible person to assign to a billet and it wants to 
verify that the person has not been previously assign- 
ed. CHECK_NJ.PAS receives a social security number and 
checks every record in the NEW_JOBS.DBF file trying to 
match social security numbers. If it finds a match, 
then it returns a boolean variable of true; otherwise 
it returns a value of false. 

The program CHECKNEC.PAS is used to determine if a 
person has an NEC which is required for a particular 
billet. CHECKNEC.PAS receives a person’s social 
security number and the required NEC, then it searches 
NEC. DBF trying to match of both the social security 
number and NEC. If it finds a match, it returns a 
boolean value of true; otherwise it returns a value of 
false . 

The module REENLIST. PAS is utilized by the knowl- 
edge base when it has a possible person to fill a 
billet, but the person’s EAOS is less than thirty days 
from today’s date. The module performs two functions. 
The first one is to query the user or the REENLIST. DBF 
file as to the person’s reenlistment intention and to 



38 



return that information to the knowledge base. The 
second function is to write the social security number 
and the person’s reenlistment intention to the 
REENLIST. DBF file after the user has been queried. 

This allows possible future queries for the same social 
security number to be answered from the data file, 
rather than requesting the information again from the 
user. The program receives a social security number 
and searches the REENLIST. DBF for a match. If a match 
is found, then it returns the person’s reenlistment 
intention. If no match is found, then it searches the 
PERSINFO.DBF to obtain the person’s name and rating. 

The program then queries the user in the format "Does 
AZ2 John Adams intend to reenlist? (Y/N)". The 
response is appended to the REENLIST. DBF and returned 
to the knowledge base. 

When the knowledge base has completed assigning all 
billets and personnel, it displays the new billet 
assignments using PRINTOUT . PAS . The desired format is 
to display the billet description, the work center, the 
person’s rate and last name. If a prospective person 
is required, then the next line displays "replacement 
is" and the person’s rate and name. PRINTOUT. PAS uses 
three database files, NEW_JOBS . DBF , JOBS. DBF and 
PERSINFO.DBF, to get the required information. The 
DBPAS language does not have the facilities to send the 
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output to the printer, so the output is only displayed 
on the screen. 

The last DBPAS program is INIT_NEW.PAS and it 
initializes two databases, NEW_JOBS.DBF and 
REENLIST .DBF . All records in both data files should be 
deleted prior to starting the knowledge base. The 
preferred method to initialize the databases is to use 
dBase III to delete all records and pack the databases. 
The dBase command "zap" will accomplish this in one 
step . 

The module INIT_NEW.PAS checks both databases and 
deletes any records that exist, however it cannot pack 
the database. So any records that exist in 
NEW_JOBS.DBF or REENLIST. DBF prior to starting the 
knowledge will be marked for deletion, but will 
actually still exist in the database. Not packing the 
databases will cause NEW_JOBS.DBF to grow by approx- 
imately 180 records every time the knowledge base is 
run. This will cause slower response times when the 
knowledge base calls CHECK_NJ.PAS to determine if a 
person has already been assigned. 

B. TURBO PASCAL INTERFACES 

Two Turbo Pascal functions were written to perform 
special functions. Both programs utilize Insight 2+’s 
parameter passing program, ASCI IPRM . PAS , and the 
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programs will not compile without it. The ASCIIPRM.PAS 
source file is a part of the Insight 2+ package and is 
not included in the appendices. The program 
GET_DATE.PAS was written to gain access to the system 
clock, so the system would not have to query the user 
for the date. It returns the current date and what the 
date will be thirty days from current date, since this 
was decided on as the planning horizon for this 
prototype . 

The other Turbo Pascal program, JOB_TIME . PAS , is 
used by the knowledge base to determine if a person has 
exceeded the job length requirement at his current 
billet. This is especially critical in TAD assignments 
where people are rotated every ninety days. The 
program receives the start date, the current date and 
the job length from the knowledge base and returns two 
boolean values, (1) if the job length has been exceeded 
and (2) if the job length will be exceeded in thirty 
days. The program necessitated the use of Turbo Pascal 
rather than DBPAS because of the requirement to convert 
a character string to a number. The file PERSONEL.DBF 
contains the date a person started his current billet, 
and, when accessed by a DBPAS program, the date is 
returned as a character string in the form "19870215". 
To determine if a person has exceeded the job length, 
the job start date and the current date are converted 
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to integers for year, month and day, and then actual 
amount of time the person has spent in the billet is 
calculated. This number is then compared with job 
length to determine if job length has been exceeded. 

It checks if the job length will be exceeded in the 
next thirty days by taking the actual time spent in the 
billet and adding thirty to it, and then comparing this 
number to job length. 

C . KNOWLEDGE BASE 

The knowledge base, AMO.PRL, has a single goal, 

AMO_IS_DONE. The goal is reached by accomplishing 

three tasks: all billets are filled, all personnel are 

assigned, and the final results are displayed. The 

control structures for both "all_billets are filled" 

and "all_personnel are assigned" are accomplished using 

recursion. An example of the structure is: 

IF one billet is filled 
AND all_billets are filled 
THEN all_billets are filled 

The stopping condition for the recursion is: 

IF billet end of file 
THEN all_billets are filled 

During implementation, the program kept getting an 

error message, possible infinite recursion detected, 

which was caused by exceeding the number of levels of 

recursion allowed by Insight. The rules were modified 
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to reduce the number of recursive calls by assigning 
approximately twenty billets to be filled for every 
level of recursion. 

Once the knowledge base has a billet, it must start 
searching through the database to find an appropriate 
person. The first rules deal with checking the current 
person in the billet to see if that person is still 
available to fill the billet and to check that the 
person has not exceeded the job length. If there is no 
one currently filling the billet or the person who was 
filling the billet is not available, then the knowledge 
base must start searching through the database to find 
someone to fill the billet. Two simplifications were 
made during the implementation of the prototype. The 
first was to assign the most senior person in paygrade 
to the billet, and the second was to write "none found" 
if the knowledge base had completed a thorough search 
and no one could be found to fill the billet. The 
knowledge base initializes the desired paygrade to the 
maximum allowable paygrade for that billet and searches 
through the database until it finds a person. If no 
one is found, then it desired paygrade is reduced by 
one paygrade and the search continues. If no one is 
found, it decreases the desired paygrade until it is 
less than the minimum allowable paygrade for that 
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billet, and it instead of identifying a social security 
number, it will write "none found". 

The knowledge base takes into account special 
qualifications in its search by only looking for 
personnel with the desired qualifications during its 
first pass through the database. For example, in a 
production work center which has CDIs assigned, 
assigning CDI’s to work centers takes precedence over 
other considerations. The knowledge base takes this 
into account by searching the database for a CDI and 
only after it has found no CDIs available, will it 
restart the search for some one who is not a CDI. 
Although it normally assigns the person with the 
highest paygrade, since CDIs take precedence in 
production work centers, it will assign a lower 
paygrade person who is a CDI over a higher paygrade 
person who is not a CDI. For example, it will assign 
an E4 who is a CDI before it assigns an E5 who is not a 
CDI to a production work center billet. The knowledge 
base follows this same logic in making assignments to 
work centers which require special qualifications such 
as QAR , ordnance certified or plane captain. 
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V. RECOMMENDATIONS FOR FURTHER STUDY 



Capturing the knowledge that assistant maintenance 
officers use in assigning personnel is a complex and 



time consuming task. This prototype utilizes only a 
limited part of the actual decision process. The 



prototype requires significant testing in real world 



situations 
more fully 
Once a 
King [Ref. 



and knowledge acquisition from experts to 
represent all aspects of the process, 
prototype has been completed, Harmon and 
3] state: 



An adage popular among knowledge engineers is that 
it is usually best to throw away the prototype. 
Knowledge engineering tools support rapid 
prototyping with a low investment of time. Thus, 
at this stage it is common to rethink the basic 
design of the knowledge base. By this we do not 
mean that one abandons a particular tool. We mean 
that the exact list of objects and attributes to be 
included in the system will probably change 
somewhat. Hierarchial relationships may need to be 
arranged. The exact way in which inference is 
handled in the heuristics may be modified as the 
expert and the knowledge engineer realize how the 
expert’s knowledge and problem solving strategies 
can be best represented. 



Based on the experience gained in building this expert 



system, some significant modifications to the existing 



prototype can be recommended. The first major change 
should be to expand the expert system to include all 
projected billet changes for the next six months. In 
developing the prototype system, a planning factor of 
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thirty days ahead was considered sufficient. However, 
for development of a full-scale model that more closely 
resembles real world planning, a time frame of six 
months in advance is necessary. 

The second major change would be to modify the 

overall control structure of the prototype. Rather 

than trying to assign a person to every billet in the 

database, it would be more logical to scan through the 

billet file and determine every billet that is not 

currently filled or will be vacated in a future period 

of time, i.e. the next six months. An output file, 

listing the billet number and the date the billet will 

be vacated, would be written to the disk. Four of the 

basic rules to determine if a billet will be vacated 

would be similar to the following: 

IF billet is currently vacant 
THEN billet will be vacated 

IF current person’s prd <= 6 months from today 
THEN billet will be vacated 

IF current person’s eaos <= 6 months from today 
AND person does not intend to reenlist 
THEN billet will be vacated 

IF job start date + j ob length <= 6 months from today 
THEN billet will be vacated 

The next task would be to search through the 
personnel data base and find all personnel who are not 
currently assigned to a billet, or are returning from a 
TAD assignment within the next six months. This would 
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include person’s who have not yet checked-in to the 
squadron, but appear on the EDYR as prospective gains. 

A file would then be written to the disk with the 
expected personnel gains and the expected dates. 

The final task would be to match the projected 
vacant billets with the anticipated gains. A search 
algorithm could be used to arrive at a solution which 
offers the fewest vacancies. An additional consider- 
ation would be to add rules that would weight the 
billet vacancies. Higher priority billets would "cost" 
more to be left vacant than lower priority billets and 
a search algorithm would produce the least "cost" 
solution . 

A third change to the current prototype would be to 

simplify the rules. Most of the current rules are 

long, complicated and not easy to follow. The rules 

could be simplified by combining several related factor 

into classification type rules. For example, the 

person’s report date, PRD and EAOS could all be 

combined to yield a single classification that can be 

used by other rules. Sample rules which would fit into 

the current prototype might be: 

IF report date <= today’s date 
AND PRD > date in one month 
AND EAOS > date in one month 
THEN person’s tour remaining = long 
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IF report date <= today’s date 
AND PRD > date in one month 
AND EAOS <= date in one month 
AND person intends to reenlist 
THEN person’s tour remaining = long 

IF report date <= today’s date 

AND PRD > date in one month 

AND EAOS <= date in one month 

AND NOT person intends to reenlist 

THEN person’s tour remaining = short 

IF report date <= today’s date 

AND PRD <= date in one month 

THEN person’s tour remaining = short 

This type of classification would also be useful in an 

expert system which was included all personnel changes 

within a six month time frame. 

An area which is related to assigning of personnel 
to billets and is another major function of the 
assistant maintenance officer is maintenance training. 
The expert system could be expanded to include training 
requirements for particular billets and a database of 
the courses which personnel have successfully complet- 
ed. Additionally, a database containing the course 
schedules could also be included, and training require- 
ments could not only be identified, but course 
scheduling could also be accomplished. 

Another recommendation is to perform extensive 
field testing of the prototype and have human "experts" 
point out mistakes. The mistakes would identify what 
knowledge was lacking, and then additional knowledge 
would be added to overcome its shortcomings. The 
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prototype has not been tested extensively and cannot be 
considered an "expert" until comprehensive testing has 
been accomplished. 

The knowledge base prototype accesses dBase III 
files for billet and personnel data. However, there is 
no database program to assist the user in editing, 
appending or deleting records in the database. The 
implementation of an easy-to-use database manager would 
be essential prior to field testing of the prototype. 
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VI. CONCLUSION 



The Navy currently does not have any tools for 
automating the decision-making process for aviation 
maintenance personnel. Many of the criteria that are 
used to assign personnel in squadrons are readily 
captured in a heuristic knowledge base. 

This project demonstrated that it is technically 
feasible to capture the knowledge an assistant main- 
tenance officer uses to assign personnel in a knowledge 
base. Additionally, it demonstrated that a database 
created from the OPNAV 1000/2 and EDVR data can be 
integrated into an effective tool for matching autho- 
rized billets and personnel. Further work should be 
done to fully implement such a system, not to replace 
the assistant maintenance officer, but to enhance his 
decision making. 
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APPENDIX A 



DATA DICTIONARY 



Name : 

Aliases : 
Descr ipt ion : 



Format : 

Module /Fi les : 



billet counter 
f i le_ctr 

Represents the record number of the 
billet which the knowledge base is 
currently trying to fill. 

Integer, 4 digits. 

AMO.PRL, GET BILL. PAS 



Name : 

Aliases : 
Description : 

Format : 
Module/Fi les : 



billet description 
job_descr, job_descrp 
Describes the type of billet, i.e. 
supervisor, technician, etc. 

Integer, 4 digits. 

AMO.PRL, GET_BILL . PAS , PRINTOUT . PAS , 
WORK CTR.PAS, JOBS. DBF 



Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



billet eof 
endof f i le 

Identifies if the end of JOBS. DBF has 
been reached. 

Boolean, allowable values T or F. 
AMO.PRL, GET BILL. PAS, CHECK N J . PAS 



Name : 

Aliases : 
Description : 



Format : 

Module /Files : 



billet number 
billet_nr 

Identifies squadron billets; it also 
signifies the priority of the billet, 
lower numbers are higher priority 
billets . 

Integer, 5 digits, numbers are in 
increments of 10. 

AMO.PRL, INIT_NEW. PAS, WRITE_IT . PAS , 
GET_BILL. PAS, CHECK_N J . PAS , WORK__CTR . PAS , 
PRINTOUT . PAS, JOBS. DBF, NEW JOBS. DBF 
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Name : 

Aliases : 
Descr iption : 

Format : 



Module/Files : 



Name : 

Aliases : 

Descr iption : 

Format : 
Module/Files : 



Name : 

Aliases : 
Descr iption : 

Format : 



Module/Files : 



Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 



Format : 
Module/Files : 



billet rating 
rating, rating_in 

Represents the rating required by that 
particular billet. 

Alphanumeric, 3 characters, allowable 
values AZ, AV , AT, AE , AQ , AD, AM, AMH , 
AMS, AME, AO, PR, ANY. 

AMO.PRL, GET_BILL. PAS, GET_PERS . PAS , 
WORK CTR. PAS, PRINTOUT . PAS , JOBS. DBF 



cdi 

None 

Identifies if a person is qualified as a 
collateral duty inspector (CDI). 

Boolean, allowable values T or F. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 
GET_SSN . PAS , GET PRSN . PAS , PERSONEL . DBF 



cdi for work center 
cdi_wc 

Identifies the work center where a person 
is qualified as a CDI. 

Alphanumeric, 3 characters, allowable 
values 110, 120, 12C, 13A, 13B, 210, 220, 

230, 260, 280. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL . DBF 



current job 
cur r_j ob 

Identifies the billet number of the 
billet a person is currently assigned to. 
Integer, 4 digits. 

AMO.PRL, GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL. DBF 



current ssn 

curr_ssn, curr_pers, assign_ssn 
Represents the social security number of 
the person currently assigned to a 
particular billet. 

Alphanumeric, 11 characters, ###-##-####. 
AMO.PRL, INIT_NEW. PAS, GET_BILL . PAS , 
GET_PSSN. PAS, CHECK_N J . PAS , WORK_CTR . PAS , 
PRINTOUT . PAS, WRITE_IT. PAS, JOBS. DBF, 

NEW JOBS. DBF 
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Name : 

Aliases : 
Description : 

Format : 

Module/Files : 



Name : 

Aliases : 
Description : 

Format : 

Module/Files : 



Name : 

Aliases : 
Description : 



Format : 

Module /Files : 



Name : 

Aliases : 
Description : 

Format : 

Module /Fi les : 



Name : 

Aliases : 
Descr ipt ion : 



Format : 
Module/Files : 



date plus one month 
date30 

Represents the date 30 days from today’s 
date . 

Alphanumeric, 8 characters, YYYYMMDD , for 
example 19870131. 

AMO.PRL, GET DATE . PAS 



date reported 
date_rpt, date_reptd 

Represents the date a person checked into 
the squadron. 

Alphanumeric, 8 characters, YYYYMMDD, for 
example 19870131. 

AMO.PRL, GET_BILL. PAS, GET_PSSN . PAS , 
GET_SSN . PAS , GET_PRSN . PAS , PRINTOUT . PAS , 
PERSONEL . DBF 



desired paygrade 
paygr , paygd 

Represents the paygrade of the billet 
which the knowledge base is currently 
trying to f ill . 

Alphanumeric, 2 characters, allowable 
values El through E9 . 

AMO.PRL, GET PERS . PAS , NEXT PG.PAS 



eaos 

None 

Represents a person’s end of obligated 
active service (EAOS) date. 

Alphanumeric, 8 characters, YYYYMMDD, for 
example 19870131. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 
GET_SSN . PAS , GET_PRSN . PAS , PRINTOUT . PAS , 
PERSONEL. DBF 



exceeded Job length 
exceeded 

Identifies if a person has been in the 
billet the maximum amount of time 
required; usually pertains to TAD billets 
of 90 days duration. 

Boolean, allowable values T or F. 

AMO.PRL, JOB TIME. PAS 
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Name : 

Aliases : 
Description : 
Format : 
Module/Files : 
Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 



Format : 
Module/Files : 



Name : 

Aliases : 
Description : 
Format : 
Module/Files : 



Name : 

Aliases : 
Description : 

Format : 

Module/Files : 



Name : 

Aliases : 
Description : 
Format : 
Module/Files : 



first_name 

None 

Identifies a person’s first name. 
Alphanumeric, 15 characters. 

PRINTOUT . PAS, REENLIST . PAS, PERSINFO . DBF 
intends to reenlist 
intention, intent, r_intent 
Identifies if a person intends to 
reenlist . 

Boolean, allowable values T or F. 
AMO.PRL, REENLIST . PAS, REENLIST . DBF , 

IN IT NEW. PAS 



job length 

j ob_l ength , j ob_lngth 

Identifies how long (number of days) that 
a job lasts, i.e. TAD billets are usually 
90 days . 

Integer, 4- digits. 

AMO.PRL, GET_BILL. PAS, WORK_CTR . PAS , 
PRINTOUT . PAS, JOB TIME. PAS, JOBS. DBF 



last_name 

None 

Identifies a person’s last name. 
Alphanumeric, 15 characters. 

PRINTOUT. PAS, REENLIST. PAS, PERSINFO. DBF 



maximum paygrade 
maxpaygr , max_paygr 

Represents the highest allowable paygrade 
for a particular billet. 

Alphanumeric, 2 characters, allowable 
values El through E9 • 

AMO.PRL, GET_BILL . PAS , WORK_CTR . PAS , 
PRINTOUT . PAS, JOBS. DBF 



middle_nam 

None 

Identifies a person’s middle name. 
Alphanumeric, 15 characters. 

PRINTOUT . PAS, REENLIST . PAS, PERSINFO. DBF 
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Name : 

Aliases : 
Description : 


minimum paygrade 
minpaygr , min_paygr 

Represents the lowest allowable paygrade 
for a particular billet. 


Format : 


Alphanumeric, 2 characters, allowable 
values El through E9 . 


Module/Files : 


AMO.PRL, GET BILL. PAS, WORK CTR . PAS , 
PRINTOUT. PAS, JOBS. DBF 


Name : 

Aliases : 
Description : 


nec code 
nec_code , nec 

Represents the Navy Enlisted Classifi- 
cation (NEC) code which identifies a 
person’s particular skill. 


Format : 

Module /Files : 


Integer, 4 digits. 

AMO.PRL, GET BILL. PAS, WORK CTR. PAS, 
PRINTOUT. PAS, CHECKNEC . PAS , NEC. DBF, 
JOBS. DBF 


Name : 

Aliases : 
Description : 


nec found 
nec_fnd 

Identifies if the NEC was found in the 
NEC. DBF file. 


Format : 
Module/Files : 


Boolean, allowable values T or F. 
AMO . PRL , CHECKNEC . PAS 


Name : 

Aliases : 
Description : 
person 
Format : 
Module/Files : 


nec required 
nec_reqd 

Identifies if the billet requires a 
with a specific NEC. 

Boolean, allowable values T or F. 
AMO.PRL, GET BILL. PAS, WORK CTR . PAS , 
PRINTOUT . PAS, JOBS. DBF 


Name : 
Aliases : 


ordnance certified 
ord cert 



Description: Identifies if a person is qualified to 

handle ordnance. 

Format: Boolean, allowable values T or F. 

Module/Files: AMO.PRL, GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL . DBF 
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Name : 

Aliases : 
Description : 
Format : 

Module/Files : 



Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 



Format : 
Module/Files : 



Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 
Format : 



Module/Files : 



paygrade 

None 

Represents the person’s paygrade. 
Alphanumeric, 2 characters, allowable 
values El through E9 • 

AMO.PRL, GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL . DBF 



person assigned 
None 

Identifies if a person has already been 
assigned to a billet. 

Boolean, allowable values T or F. 

AMO . PRL 



personnel counter 
recrd_nr, new_recn 

Represents the record number of the 
person that the knowledge base is 
currently trying to match with a billet. 
Integer, 4 digits. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS 



personnel eof 
endof f ile 

Identifies if the end of file has been 
reached in the PERSONEL . DBF . 

Boolean, allowable values T or F. 

AMO . PRL , GET SSN . PAS 



persons rating 
rating 

Represents a person’s rating. 
Alphanumeric, 3 characters, allowable 
values AZ, AV, AT, AE , AQ , AD, AM, AMH , 
AMS, AME, AO, PR, NON. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL. DBF 
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Name : 

Aliases : 

Descr ipt ion : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 

Format : 

Module/Files : 



Name : 

Aliases : 
Description : 



Format : 
Module/Files : 



Name : 

Aliases : 
Description : 



Format : 
Module/Files : 



Name : 

Aliases : 
Description : 

Format : 

Module /Fi les : 



plane captain 
plane_capt, pc 

Identifies if a person is qualified as a 
plane captain. 

Boolean, allowable values T or F. 
AMO.PRL, GET_PERS. PAS, GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL . DBF 



pr d 
None 

Represents a person’s projected rotation 
date ( PRD ) . 

Alphanumeric, 8 characters, YYYYMMDD , for 
examp 1 e 1 987 0131. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 
GET_SSN . PAS , GET_PRSN . PAS , PRINTOUT . PAS , 
PERSONEL . DBF 



previous job 
prev_j ob 

Identifies the billet number of the 
billet a person was previously assigned 
to before his currently assignment. 
Integer, 4 digits. 

AMO.PRL, GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL. DBF 



prospective ssn 

pros_ssn, pros_pers, future_ssn 
Represents the social security number of 
the person who is going to be assigned to 
the billet within the next 30 days. 
Alphanumeric, 11 characters, ###-##-####. 
AMO.PRL, INIT_NEW. PAS, GET_BILL . PAS , 

WR I TE_I T . PAS , WORK_CTR. PAS, CHECK_N J . PAS , 
PRINTOUT. PAS, JOBS. DBF, NEW JOBS. DBF 



qar 

None 

Identifies if a person is qualified as a 
quality assurance representative. 
Boolean, allowable values T or F. 
AMO.PRL, GET_PERS. PAS, GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL . DBF 
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Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 

Format : 
Module/Files : 



Name : 

Aliases : 
Description : 

Format : 

Module/Files : 



Name : 
Aliases: 
Description : 



Format : 
Module/Files : 



rate 

None 

Represents a person’s rate, for example: 
AZ3, ATAA , AMCS, etc. 

Alphanumeric, 5 characters. 

PRINTOUT . PAS, REENLIST . PAS, PERSINFO . DBF 



social security number 
ssn 

Represents the person’s social security 
number . 

Alphanumeric, 11 characters, ###-##-#### . 
AMO . PRL , GET_PSSN . PAS , CHECK_N J . PAS , 
GET_SSN . PAS , GET_PRSN . PAS , PRINTOUT . PAS , 
REENLIST . PAS, CHECKNEC . PAS , INIT_NEW . PAS , 
REENLIST. DBF, NEC. DBF, PERSINFO. DBF 



ssn was found 
ssn_fnd 

Identifies if a ssn was found while 
searching through the PERSONEL . DBF . 
Boolean, allowable values T or F. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 
GET PRSN . PAS 



start date 

start_dt , start_date 

Represents the date a person started his 
current billet assignment. 

Alphanumeric, 8 characters, YYYYMMDD, for 
example 19870131. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 
GET_SSN . PAS , GET_PRSN . PAS , J OB_T IME . PAS , 
PERSONEL. DBF 



striker 

None 

Identifies if a person is striking for a 
particular rating; applies to personnel 
who are El through E3 and do not have a 
designated rating. 

Boolean, allowable values T or F. 

AMO. PRL, GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN. PAS, GET PRSN . PAS , PERSONEL. DBF 
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Name : 

Aliases : 
Description : 

Format : 



Module/Files : 



Name : 

Aliases : 
Description: 

Format : 

Module /Files : 



Name : 

Aliases : 
Descr ipt ion : 



Format : 
Module/Files : 



Name : 

Aliases : 
Description: 



Format : 

Module /Files : 



Name : 

Aliases : 
Descr iption : 

Format : 



Module/Files : 



striker rating 
str_rating, str_rate 
Represents the rating a person is 
striking for. 

Alphanumeric, 3 characters, allowable 
values AZ, AT, AE, AQ , AD, AMH, AMS, AME , 
AO, PR. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL . DBF 



todays date 
t o day_dat e , dat e 

Represents today’s date which is 
obtained from the system clock. 
Alphanumeric, 8 characters, YYYYMMDD, for 
example 19870131. 

AMO. PRL, GET DATE. PAS, JOB TIME. PAS 



total days in previous job 
total_days, tot_days 

Represents the total number of days a 
person was assigned to the job he held 
prior to his current job. 

Integer, 4 digits. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN . PAS , GET PRSN . PAS , PERSONEL . DBF 



total tad time 
tad_time, tot_tad 

Represents the total number of days a 
person has been assigned TAD from the 
squadron . 

Integer, 4 digits. 

AMO . PRL , GET_PERS . PAS , GET_PSSN . PAS , 

GET SSN.PAS, GET PRSN . PAS , PERSONEL. DBF 



work center 
work_cntr , workcenter 
Represents the work center that 
corresponds to the billet. 

Alphanumeric, 3 characters, allowable 
values 020, 030, 040, 04A, 04C, 050, 100, 



110, 


1 20 , 


1 2C , 


13A, 


1 3B , 


1 40 , 


200 


220 , 


230, 


260 , 


280 , 


300, 


310, 


320 


ecu. 


CMC, 


IMA, 


SAF, 


SUP, 


TNG, 


TAD 



AMO . PRL , GET_B ILL . PAS , WORK_CTR . PAS , 
PRINTOUT. PAS, JOBS. DBF 
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APPENDIX B 



DATABASE STRUCTURE 



The structure of the six database files which are 
accessed by the expert system are listed below. 



Structure for: JOBS. DBF 
Aliases: billet, jobsfile 

Modules: GET BILL. PAS, WORK CTR.PAS, PRINTOUT. PAS 



Field name 

BILLET_NR 

JOB_DESCRP 

WORKCENTER 

MIN_PAYGR 

MAX_PAYGR 

RATING 

CURR_PERS 

PROS_PERS 

JOB_LENGTH 

NEC_REQD 

NEC 



Type Width 

Numeric 4 

Character 20 

Character 3 

Character 2 

Character 2 

Character 3 

Character 1 1 

Character 1 1 

Numeric 4 

Logical 1 

Numeric 4 



Structure for: PERSINFO.DBF 
Aliases: personnel 

Modules: REENLIST . PAS , PRINTOUT. PAS 



Field name 


Type 


Width 


LAST NAME 


Character 


1 5 


FIRST NAME 


Character 


1 5 


MIDDLE NAM 


Character 


1 5 


SSN 


Character 


1 1 


RATE 


Char acter 


5 
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Structure for: PERSONNEL . DBF 

Aliases: persfile 

Modules: GET_SSN.PAS, GET_PERS . SSN , GET_PSSN.PAS 

GET PRSN . PAS 



Field name 


Type 


Width 


SSN 


Character 


1 1 


RATING 


Char acter 


3 


PAYGRADE 


Char acter 


2 


DATE REPTD 


Date 


8 


PRD 


Date 


8 


EAOS 


Date 


8 


CURR JOB 


Numeric 


4 


START DATE 


Date 


8 


PREV JOB 


Numeric 


4 


TOT DAYS 


Numeric 


4 


CDI 


Logical 


1 


CD I WC 


Char acter 


3 


QAR 


Logical 


1 


PLANE CAPT 


Logical 


1 


ORD CERT 


Logical 


1 


STRIKER 


Logical 


1 


STR_RATING 


Character 


3 


TOT TAD 


Numeric 


4 



Structure for: REENLIST. DBF 
Aliases: re_enlist 

Modules: REENLIST . PAS , INIT_NEW.PAS 

Field name Type Width 

SSN Character 1 1 

INTENT Logical 1 



Structure for: NEC. DBF 
Aliases: necfile 

Modules: CHECKNEC . PAS 



Field name 

SSN 

NEC 



Type 

Character 

Numeric 



Width 
1 1 
4 
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Structure for: NEW_JOBS.DBF 

Aliases: assign, newjobs 

Modules: INIT_NEW . PAS , CHECK_N J . PAS , 

PRINTOUT. PAS, WRITE IT. PAS 



Field name 


Type 


Width 


BILLET NR 


Numeric 


3 


CURR SSN 


Char acter 


1 1 


PROS SSN 


Character 


1 1 
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APPENDIX C 



DBPAS PROGRAMS 



program CHECK_NEC( RECEIVE ssn : string(ll); 

nec : integer; 

RETURN nec_fnd : boolean); 

var 

necfile : record 

ssn : str ing( 11); 
nec : real ; 
end; 

begin 

open( necfile, ’nec’); 
goto( 1, necfile); 

while NOT EOF(necfile) AND ( (necfile . ssn <> 
OR (ROUND(necf ile .nec ) <> nec)) do 
begin 

NEXT(necf ile ) ; 
end; 

nec_fnd := NOT EOF( necfile ) ; 
close( necfile); 

end; 



ssn ) 
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program CHECK_NJ( RECEIVE ssn : string( 1 1 ) 

RETURN assigned : boolean); 

var 

assign : record 

billet_nr ; real; 
curr_ssn : string(ll); 
pros_ssn ; string(ll); 
end; 



begin 

open( assign, ’ new_j obs ’ ) ; 

goto(1, assign); 

while NOT EOF( assign) AND 

(( assign . deleted = true) OR 
(( assign . curr_ssn <> ssn) AND 
( assign . pros_ssn <> ssn))) do 
begin 

NEXT( assign) ; 
end; 

assigned := NOT EOF( assign); 
close( assign ) ; 
end; 
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program GET_BILL( RECEIVE file_ctr 

RETURN billet_nr 
j ob_descr 
work_cntr 
minpaygr 
maxpaygr 
rating 
curr_per s 
pros_pers 
j ob_lngth 
nec_reqd 
nec_code 
endof f ile 



var 



billet : record 
billet_nr : 
job_descrp : 
workcenter : 
min_paygr : 
max_paygr : 
rating : 

curr_pers : 
pros_pers : 
job_length : 
nec_reqd : 
nec : 

end ; 



real ; 

str ing( 20 ) ; 
string( 3) ; 
str ing( 2 ) ; 
str ing( 2 ) ; 
str ing( 3 ) ; 
str ing( 11); 
str ing( 11); 
real ; 
boolean ; 
real ; 



begin 

open( billet, ’jobs’); 
goto( f ile_ctr , billet); 
if EOF(billet) = true 
then 

begin 

billet_nr := 0; 
job_descr := ’ 

work_cntr := ’ ’ 

minpaygr : = ’ ’ ; 

maxpaygr : = ’ ’ ; 

rating : = * ’ ; 

curr_pers := ’ 

pros_pers := ’ 

job_lngth := 0; 
nec_reqd := false; 
nec_code : = 0 ; 

end 



else 



integer ; 
integer ; 
str ing( 20 ) 
str ing( 3 ) ; 
string( 2 ) ; 
string( 2 ) ; 
str ing( 3 ) ; 
str ing( 1 1 ) 
str ing( 1 1 ) 
integer ; 
boolean ; 
integer ; 
boolean ) ; 



) . 
9 

’ • 
9 
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begin 

billet_nr := ROUND(billet .billet_nr ) ; 
job_descr := billet . j ob_descrp ; 
work_cntr := billet . workcenter ; 
minpaygr := billet .min_paygr ; 
maxpaygr := billet .max_paygr ; 
rating := billet . rating; 
curr_pers := bi llet . curr_pers ; 
pros_pers := billet .pros_pers ; 
job_lngth := ROUND (bil let . j ob_length ) 
nec_reqd := billet .nec_reqd; 
nec_code := ROUND(billet .nec ) ; 
end; 

endoffile ;= EOF(billet); 
close(billet ) ; 
end; 
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program GET_PERS( RECEIVE recrd_nr 

rating_in 

paygr 

RETURN ssn_fnd 
pros_ssn 
rating 
paygr ade 
date_rpt 
prd 
eaos 

curr _3 ob 
start_dt 
prev_j ob 
tot_days 
cdi 

cdi_wc 

qar 

pc 

ord_cert 
striker 
str_rate 
tad_time 
new recn 



var 



persfile : record 



ssn 

rating 

paygr ade 

date_reptd 

prd 

eaos 

curr_j ob 
start_date 
prevj ob 
t otal_days 
cdi 

cdi_wc 

qar 

plane_capt 
or d_cer t 
striker 
str_rating 
tot_tad 
end; 



string( 11); 
string( 3 ) ; 
str ing( 2 ) ; 
str ing( 8 ) ; 
str ing( 8 ) ; 
str ing( 8 ) ; 
real ; 

st r ing( 8 ) ; 
real ; 
real ; 
boolean ; 
string( 3 ) ; 
boolean ; 
boolean ; 
boolean ; 
boolean ; 
string( 3 ) ; 
real ; 



begin 

open( persfile, ’personel ’ ) ; 
goto( recrd_nr, persfile); 
if rating_in = ’ANY’ 
then 



integer ; 
string( 3 ) ; 
str ing( 2 ) ; 
boolean ; 
string( 1 1 ) 
string( 3 ) ; 
string( 3 ) ; 
string( 8 ) ; 
str ing( 8 ) ; 
str ing( 8 ) ; 
integer ; 
string( 8 ) ; 
integer ; 
integer ; 
boolean ; 
str ing( 3 ) ; 
boolean ; 
boolean ; 
boolean ; 
boolean ; 
str ing( 3 ) ; 
integer ; 
integer ) ; 



68 



begin 

while NOT EOF(persf ile ) AND 
( persf i le . paygrade <> paygr ) do 
begin 

NEXT (persf ile ) ; 
end; 

end 

else 

begin 

while NOT EOF( persf ile ) AND 
( (persf ile .paygrade <> paygr) OR 
(persf ile . rating <> rating_in)) do 
begin 

NEXT (persf ile ) ; 
end; 

end; 

if EOF(persfile) 
then 

begin 



ssn_fnd : 


= false; 




pros_ssn 


• _ > 


y • 

9 


rating := 


> > • 
9 




paygrade 


• _ > > • 
• “ y 




date_rpt 


• = J 


y . 

9 


prd := * 


y • 

9 




eaos := ’ 


y • 

9 




cur r_j ob 


:= 0; 




start_dt 


• = } 


y • 

9 


pr ev_j ob 


:= 0; 




tot days 


:= 0; 




cdi := false; 




cdi wc := 


y y • 

9 




qar := false; 




pc := false; 




or d_cert 


:= false; 




striker : 


= false; 




str_rate 


• _ y y • 

• ” 9 




tad_time 


: = 0 ; 




new_r ecn 


:= SIZE(persf ile ) 



end 
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begin 

ssn_fnd := true; 
pros_ssn := persf ile . ssn ; 
rating := persf ile . rating; 
paygrade := persf ile .paygrade ; 
date_rpt := persf ile . date_reptd; 
prd := persf ile .prd; 
eaos := per sf ile . eaos ; 

curr_job := ROUND(persf ile . curr_j ob ) ; 
start_dt := per sf ile . start_date ; 
prev_job := ROUND(persf ile .prev_j ob ) ; 
tot_days := ROUND( per sf ile . total_days ) 
cdi ;= persf ile . cdi ; 
cdi_wc : = per sf ile . cdi_wc ; 
qar := persf ile . qar ; 
pc ;= per sf ile . qar ; 
ord_cert := persf ile . ord_cert ; 
striker := persf ile . striker ; 
str_rate := persf ile . str_rating; 
tad_time := ROUND(persf ile . tot_tad) ; 
new_recn := RECNO(persf ile ) 
end; 

close (persf ile ) ; 

end; 
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program GET_PRSN( RECEIVE recrd_nr 

RETURN ssn_fnd 
ssn 

rating 
pay grade 
date_rpt 
prd 
eaos 

curr_;j ob 
start_dt 
prev_j ob 
tot_days 
cdi 

cdi_wc 

qar 

pc 

or d_cer t 
striker 
str_rate 
tad_time 

var 



persfile : recor 
ssn : 

rating : 

paygrade : 
date_reptd : 
prd : 

eaos : 

curr_job : 
start_date : 
prev_job : 
total_days : 
cdi : 

cdi_wc : 

qar : 

plane_capt : 
ord_cert : 
striker : 

str_rating : 
tot_tad : 
end; 



d 

str ing( 11); 
string ( 3 ) ; 
string( 2 ) ; 
string(8) ; 
str ing( 8 ) ; 
string(8) ; 
real ; 

str ing( 8 ) ; 
real ; 
real ; 
boolean ; 
str ing( 3 ) ; 
boolean ; 
boolean ; 
boolean ; 
boolean ; 
str ing( 3 ) ; 
real ; 



begin 



open( persfile, ’personel* ); 
goto( recrd_nr, persfile); 

if EOF( persfile ) 
then 



integer ; 
boolean ; 
str ing( 11); 
str ing( 3 ) ; 
str ing( 3 ) ; 
str ing(8 ) ; 
string(8) ; 
str ing( 8 ) ; 
integer ; 
string( 8 ) ; 
integer ; 
integer ; 
boolean ; 
str ing( 3 ) ; 
boolean ; 
boolean ; 
boolean ; 
boolean ; 
str ing( 3 ) ; 
integer ) ; 
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begin 




ssn_fnd : = 


false ; 


ssn := ’ 


’ • 
9 


rating := ’ 


’ • 
9 


paygrade := 


J > • 

9 


date_rpt : = 


> J • 

9 


prd ;= ’ 


J • 
9 


eaos ;= ’ 


J • 
9 


curr_job ;= 


0; 


start_dt := 


j y . 

9 


prevjob : = 


0; 


tot days := 


0; 


cdi ;= false; 


cdi wc := ’ 


y • 

9 


qar := false; 


pc := false 


• 

9 


ord_cert := 


false ; 


striker ;= 


false ; 


str_rate := 


y y ♦ 

9 


tad_time := 


0; 



end 



else 

begin 

ssn_fnd := true; 

ssn := persf ile . ssn ; 

rating := persf ile . rating; 

paygrade ;= per sf ile . paygrade ; 

date_rpt := persf ile . date_reptd; 

prd := persf ile . prd; 

eaos := per sf i le . eaos ; 

curr_j ob := ROUND( per sf i le . cur r_j ob ) ; 
start_dt := persf ile . start_date ; 
prev_job := ROUND( per sf i le . prev_j ob ) ; 
tot_days := ROUND( per sf ile . total_days ) 
cdi := per sf ile . cdi ; 
cdi_wc := persf ile . cdi_wc ; 
qar := per sf i le . qar ; 
pc := persf ile . qar ; 
ord_cert := persf ile . ord_cert ; 
striker := persf ile . striker ; 
str_rate := persf i le . str_rating ; 
tad_time := ROUND( per sf i le . tot_tad ) ; 
end; 

close(persfile) ; 

end ; 
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program GET_PSSN( RECEIVE curr_ssn 

RETURN ssn_fnd 
rating 
paygr adLe 
date_rpt 
pr d 
eaos 

cur r_j ob 
start_dt 
prev_j ob 
tot_days 
cdi 

cdi_wc 

qar 

pc 

ord_cert 
striker 
str_rate 
tad_t ime 
new recn 



var 



persfile : recor 
ssn : 

rating : 

pay grade : 
date_reptd : 
pr d : 

eaos : 

curr Job : 
start_date : 
prevj ob : 
total_days : 
cdi : 

cdi_wc : 

qar : 

plane_capt : 
ord_cert : 
striker : 

str_rating : 
tot_tad : 
end ; 



d 

str ing( 11); 
string( 3 ) ; 
string( 2 ) ; 
string( 8 ) ; 
str ing( 8 ) ; 
str ing( 8 ) ; 
real ; 

str ing(8 ) ; 
real ; 
real ; 
boolean ; 
str ing( 3 ) ; 
boolean ; 
boolean ; 
boolean ; 
boolean ; 
str ing( 3 ) ; 
real ; 



begin 

open( persfile, ’personel ’ ); 
goto( 1, persfile); 
while NOT EOF( per sf i le ) AND 
(curr_ssn <> persfile 
begin 

NEXT (persfile ) ; 
end; 



str ing( 1 1 ) 
boolean ; 
string( 3 ) ; 
str ing( 3 ) ; 
str ing( 8 ) ; 
s t r i ng ( 8 ) ; 
str ing( 8 ) ; 
integer ; 
str ing( 8 ) ; 
integer ; 
integer ; 
boolean ; 
str ing( 3 ) ; 
boolean ; 
boolean ; 
boolean; 
boolean ; 
string( 3 ) ; 
integer ; 
integer ) ; 



.ssn) do 
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if EOF(persf ile ) 
then 

begin 

ssn_fnd := false; 
rating : = ’ * ; 

paygrade ;= ’ 

date_rpt := * ’ ; 

pr d ; = * ’ ; 

eaos : = ’ ’ ; 

currjob := 0; 

start_dt := ’ ’ ; 

prev_job := 0; 

tot_days := 0; 

cdi := false; 
cdi_wc : = ’ ’ ; 

qar := false; 
pc := false; 
ord_cert := false; 
striker := false; 
str_r ate : = ' * ; 

tad_time := 0; 

new_recn := SIZE(persf ile ) + 1; 

end 

else 

begin 

ssn_fnd := true; 

rating := per sfi le . rating ; 

paygrade := per sfi le . paygrade ; 

date_rpt := persf i le . date_reptd ; 

prd := persfile .prd; 

eaos := per sf ile . eaos ; 

currjob := ROUND( per sf i le . cur r_j ob ) ; 
start_dt := per sf i le . start_date ; 
prev_job := ROUND(persf ile .prev_job ) ; 
tot_days := ROUND( per sf i le . total_days ) 
cdi := persf ile . cdi ; 
cdi_wc := persf i le . cdi_wc ; 
qar := per sf i le . qar ; 
pc := persf i le . qar ; 
ord_cert := persf ile . ord_cert ; 
striker := per sf i le . str iker ; 
str_rate := persf ile . str_rating; 
tad_time := ROUND(persf ile . tot_tad) ; 
new_recn := RECNO(persf ile ) ; 
end ; 

close(persfile) ; 

end ; 
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program GET_SSN( RECEIVE recrd_nr : 

RETURN ssn : 

endoff ile : 



var 



ersfile : record 



ssn 

rating 

paygrade 

date_reptd 

prd 

eaos 

curr_j ob 
start_date 
prev_j ob 
total_days 
cdi 

cdi_wc 

qar 

plane_capt 
or d_cert 
striker 
str_r ating 
tot_tad 
end; 



str ing( 11); 
string( 3 ) ; 
str ing( 2 ) ; 
string(8) ; 
string(8 ) ; 
str ing(8 ) ; 
real ; 

str ing(8 ) ; 
real ; 
real ; 
boolean ; 
string( 3 ) ; 
boolean ; 
boolean ; 
boolean; 
boolean; 
string( 3 ) ; 
real ; 



begin 

open( persfile, ’personel’ ); 
goto( recrd_nr , persfile); 
if EOF(persf ile ) 
then 

begin 

ssn := ’ 

end 



else 



begin 

ssn := persfile . ssn ; 
end; 

endoffile := EOF(persf ile ) ; 
close(persfile); 

end ; 



integer ; 
str ing( 1 1 ) 
boolean ) ; 
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program INIT_NEW; 
var 

assign : record 

t>illet_nr : real; 
curr_ssn : string(ll); 
pros_ssn : string(ll); 
end; 

re_enlist : record 
ssn : str ing( 11); 
intent : boolean; 
end; 

begin 

open( assign, * new_j obs ’ ) ; 
goto( 1 , assign ) ; 
while NOT EOF( assign) do 
begin 

if assign . deleted = false 
then 

begin 

assign. deleted := true; 
replace( assign ) ; 
end; 

NEXT( assign) ; 
end; 

close( assign.) ; 

open(re_enlist, ’reenlist’ ); 
goto(1, re_enlist); 
while NOT EOF( re_enl i st ) do 
begin 

if re_enlist . deleted = false 
then 

begin 

re_enlist . deleted := true 
replace( re_enlist ) ; 
end; 

NEXT ( re_enl ist ) ; 
end ; 

close( re_enlist ) ; 
end ; 
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program NEXT_PG( RECEIVE paygr : string(2); 

RETURN paygd : string(2)) 

begin 

if paygr = ’E9’ 
then 

paygd : = ’ E8 ’ ; 

if paygr = ’ E8’ 

then 

paygd := ’E7’; 

if paygr = ’ E7’ 
then 

paygd := ’ E6’; 

if paygr = ’ E6’ 

then 

paygd : = ’ E5 * ; 

if paygr = ’ E5’ 

then 

paygd : = ’ E4 ’ ; 

if paygr = ’E4’ 
then 

paygd : = ’E3 ’ ; 

if paygr = ’E3’ 
then 

paygd : = ’E2 ’ ; 

if paygr = ’E2’ 

then 

paygd : = ’ El ’ ; 

if paygr = ’ El ’ 

then 

paygd : = ’ E0 ’ ; 

end ; 
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program PRINT_OUT; 



var 

newj obs : record 

billet_nr : real; 
curr_ssn : string(ll); 
pros_ssn : string(ll); 
end; 



personnel : record 



last_name 

first_name 

middle_nam 

ssn 

rate 

end; 



string( 15); 
str ing( 15); 
string( 15); 
str ing( 11); 
str ing( 5 ) ; 



iobsfile : record 



blllet_nr 
j ob_descrp 
workcenter 
min_paygr 
max_paygr 
rating 
curr_pers 
pros_pers 
j ob_length 
nec_r eqd 
nec 
end; 



real ; 

str ing( 20 ) ; 
string( 3 ) ; 
string( 2 ) ; 
str ing( 2 ) ; 
string( 3 ) ; 
str ing( 11); 
str ing( 11); 
real ; 
boolean ; 
real ; 



dx_nx : string(2); 



begin 

open( newj obs , ’ new_J obs ’ ) ; 

open(personnel , ’persinfo’); 
open( j obsf ile , ’jobs’); 
goto( 1 , newj obs); 
while NOT EOF(newjobs) do 
begin 

if ( newj obs . deleted = false) AND 

(newj obs .billet_nr <> 9999-0) then 
begin 

goto( 1 , jobsfile); 
while NOT EOF( j obsf ile ) AND 
( newj obs . billet_nr <> 
jobsfile -billet_nr ) do 
begin 

NEXT( jobsfile) ; 
end; 
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goto(1, personnel); 

while NOT EOF(personnel ) AND 
(newj obs.curr_ssn <> 

per sonnel . ssn ) AND 
( newj obs . cur r_ssn <> 

’ none found ’ ) do 

begin 

NEXT(personnel ) ; 
end; 

if ( newj obs . cur r_ssn = ’none found’) 
then 

WRITELN ( j obsf ile . j ob_descrp , ’ 
j obsf ile . workcenter , 

’ no one found’ ) 

else 

WRITELN( j obsf ile . j ob_descrp , ’ ’, 

j obsf ile .workcenter , 

’ ’, per sonnel . rate , ’ ’, 

personnel . last_name ) ; 

if ( newj obs ,pros_ssn > ’000-00-0000’) OR 

( newj obs .pros_ssn = ’none found’) 
then 

begin 

goto( 1 , personnel); 
while NOT EOF(personnel ) AND 
( newj obs . pros_ssn <> 
personnel . ssn ) AND 
( newj obs . pros_ssn <> 

’none found’) do 
begin 

NEXT(personnel ) ; 
end; 

if ( newj obs . pros_ssn = 

’none found’) then 
WRITELN ( ’ replacement 

needed, but no one found’ ) 
else 

WRITELN( ’ replacement 

is ’, per sonnel . rat e , 

’ ’ .personnel . last_name ) ; 

end; 

WRITELN; 
end ; 



79 



if ( new;} obs . deleted = false) AND 

(new;} obs .billet_nr = 9999.0) then 
begin 

goto(1, personnel); 

while NOT EOF( per sonnel ) AND 

(newj obs.curr_ssn <> personnel . ssn ) 
do 

begin 

NEXT(personnel ) ; 
end; 

WRITELN( ’ extra person, 

’ personnel .rate, 
personnel . last_name assign to 
newj obs .pros_ssn ) ; 

WRITELN; 

end; 

NEXT ( newj obs ) ; 
end; 

close ( new;} obs ) ; 
close(personnel ) ; 
close(jobsfile); 
end; 



80 



program REENLIST ( RECEIVE 

RETURN 



ssn 

intention 



str ing( 11); 
boolean ) ; 



var 

re_enlist ; record 

ssn : str ing( 11); 
intent ; boolean; 
end; 

personnel : record 
last_name : str 
first_name : str 
middle_nam : str 
ssn : str 

rate ; str 

end; 

r_intent : char ; 
begin 

open( re_enlist , ’reenlist’); 
goto( 1 , re_enlist); 
while NOT EOF( re_enlist ) AND 
((ssn <> re_enlist . ssn ) OR 
( re_enlist . deleted = true)) do 
begin 

NEXT( re_enlist ) ; 
end; 

if (ssn = re_enlist . ssn ) 
then 

begin 

intention := re_enl ist . intent ; 
end 
else 

begin 

open( per sonnel , ’persinfo’); 

goto( 1 , personnel); 

while NOT EOF(personnel ) AND 

(ssn <> per sonnel . ssn ) do 
begin 

NEXT( per sonnel ) ; 
end; 

CLEAR; 

WRITELN ; 

WRITELN ; 

WRITELN; 

WRITELN( ’ Does ’, personnel . rate , ’ ’, 

personnel . f ir st_name , 
personnel . last_name , 

’ intend to reenlist? (Y/N)’); 



ing( 15); 
ing( 15); 
ing( 15); 
ing( 11); 
ing( 5 ) ; 
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r intent := 



1 J • 
f 



repeat 

begin 

READLN( r_intent ) ; 
end; 

until (r_intent = ’Y’) OR (r_intent = ’y’) 

OR (r_intent = ’ N’) 

OR (r_intent = *n’); 

if (r_intent = * Y*) OR ( r_intent = ’ y’) 

then 

begin 

intention := true; 

end 

else 

begin 

intention := false; 
end; 

re_enl ist . intent := intention; 
re_enlist . ssn := ssn; 
append( re_enlist ) ; 
close( re_enlist ) ; 
end; 

close( personnel ) ; 
end ; 
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program WORK_CTR( RECEIVE billet_nr 

RETURN work_cntr 
j ob_lngth 



integer ; 
string( 3 ) ; 
integer ) ; 



var 



jobsfile : recor 
billet_nr : 
job_descrp : 
workcenter : 
min_paygr : 
max_paygr : 
rating : 

curr_pers : 
pros_pers : 
job_length : 
nec_reqd : 
nec : 

end; 



d 

real ; 

str ing( 20 ) ; 
string ( 3 ) ; 
str ing( 2 ) ; 
str ing( 2 ) ; 
str ing( 3 ) ; 
str ing( 11); 
string( 11); 
real ; 
boolean ; 
real ; 



begin 

open( jobsfile , ’jobs’); 

goto(1, jobsfile); 

while NOT EOF( j obsf i le ) AND 

(( j obsfile . deleted = true) OR 

( j obsf ile .billet_nr <> FLOAT(billet_nr ) ) ) do 
begin 

NEXT( jobsfile) ; 
end ; 



if EOF( j obsf i le ) then 
begin 

work_cntr : = ’ 

job_lngth := 0; 

end 



begin 

work_cntr := j obsf i le . workcenter ; 
job_lngth := ROUND( j obsf i le . j ob_length ) ; 
end ; 

close( jobsfile) ; 
end ; 
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program 



WRITE_IT( RECEIVE billet_nr 

assign_ssn 
future ssn 



integer ; 
str ing( 11); 
str ing( 11)) 



var 

assign ; record 

billet_nr ; real; 
curr_ssn : string( 11); 
pros_ssn : string(ll); 
end; 

begin 

open (assign, ’ new_j obs ’ ) ; 
assign .billet_nr := FLOAT ( bi 1 1 et_nr ) ; 
assign . cur r_ssn := assign_ssn; 
assign. pros_ssn ;= future_ssn; 
append( assign ) ; 
close ( assign ) ; 
end; 
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APPENDIX D 



TURBO PASCAL PROGRAMS 



program get_date ; 
type 

registers = record 

ax,bx, cx , dx ,bp , si , di , ds , es , fg : integer; 
end; 

VAR 

RECPACK : registers; {record for MsDos call} 

MONTH, DAY : STRING [ 2 ] ; 

YEAR : STRING[4] ; 

err, iMONTH, iDAY, iYEAR, DX , CX : INTEGER; 

date, date30 : string[8] ; 

{$1 ASCIIPRM.PAS } {This is INSIGHT 2+ Pascal paramter 

passing source } 



BEGIN 

WITH RECPACK DO BEGIN 
AX := $2 A SHL 8; 

END; 

MSDOS (RECPACK); { call function } 

WITH RECPACK DO BEGIN 
STR (CX, YEAR); 

STR (DX MOD 256, DAY); 

STR (DX SHR 8, MONTH); 

END; 



val (month, imonth, err); 
val (day, iday, err); 
val (year, iyear , err); 

if imonth <= 9 
then 

MONTH := ’0’+MONTH; 
if iday <= 9 
then 

DAY : = ’ 0 ’ +DAY ; 

DATE := YEAR+MONTH+DAY; 
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i day : = i day + 30; 



if ((imonth=i) or (imonth=3) or (imonth=5) or 
(imonth=7) or (imonth=8) or (imonth=10)) and 
(i day >31) then 
begin 

imonth : = imonth + 1 ; 
i day : = i day - 31; 
end; 

if (imonth=2) and (iday>28) then 
begin 

imonth : = imonth + 1 ; 
iday := iday - 28; 
end; 

if ((imonth=4) or (imonth=6) or (imonth=9) or 
(imonth=11)) and (iday >30) then 
begin 

imonth : = imonth + 1 ; 
i day : = i day - 30; 
end; 

if (imonth=12) and (iday>31) then 
begin 

iyear : = iyear + 1 ; 
imonth : = 1 ; 
i day : = i day - 31; 
end; 

str ( iyear : 4 ,year ) ; 

if imonth <= 9 
then 

begin 

str ( imonth : 1 , month ) ; 

MONTH := ’ 0’+MONTH; 

end 

else 

begin 

str ( imonth : 2 , month ) 
end; 

if i day < = 9 
then 

begin 

s t r ( i day : 1 , day ) ; 

DAY : = ’ 0 ’ +DAY ; 

end 

else 
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begin 

str ( iday : 2 , day ) ; 
end; 

DATE30 := YEAR+MONTH+DAY ; 
INI T_PARAM_ADDR ; 
RESET_PARAM_MEMORY (2); 
WRITE_STRING( date ) ; 
WRITE_STRING( date30 ) ; 

END. 
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program job_time; 



string[8] ; 
real ; 

boolean ; 



VAR 

star t_date , 
today_date : 
job_length : 
exceeded , 
exceed30 : 

istrtyr , 
istrtmo , 
istrtda, 
itdayyr , 
i t daymo , 
it day da, 
err , 

jobtime : 

start_yr , 
today_yr : 

star t_mo , 
today_mo , 
start_da, 
today_da : 

{ $1 ASCII PRM . PAS } 



integer ; 
str ing[4] ; 

str ing[2] ,• 

{This is INSIGHT 2+ 
passing source > 



Pascal paramter 



begin 

IN IT PAR AM ADDR; 



READ_STRING( start_date ) ; 
READ_STRING( today_date ) ; 
READ_REAL( j ob_length ) ; 



star t_yr 
start_mo 
start da 



COPY ( st art_date ,1,4) 
COPY ( start_date ,5,2) 
COPY ( start date ,7,2) 



today _yr 
today_mo 
today_da 



CO PY ( t oday_dat e , 1 , 4 ) 
COPY ( today_dat e ,5,2) 
COPY( today_date ,7,2) 



val ( start_yr , istrtyr , err ) ; 
val( start_mo , istrtmo , err ) ; 
val(start da, istrtda, err ) ; 



val ( today_yr , i tdayyr ,err); 
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val ( today_mo , itdaymo , err ) ; 

val ( today_da, itdayda,err ) ; 

if itdayda < istrtda then 
begin 

itdayda := itdayda + 30; 

itdaymo ;= itdaymo - 1; 

end; 

if itdaymo < istrtmo then 
begin 

itdaymo := itdaymo + 12; 

itdayyr := itdayyr - 1; 

end ; 

jobtime := ((itdayyr - istrtyr) * 365) + 
((itdaymo - istrtmo) * 30) + 
(itdayda - istrtda); 



if job time >= job_length 
then 

exceeded := true 
else 

exceeded := false; 



if (jobtime +30) >= job_length 
then 

exceed30 := true 
else 

exceed30 := false; 



RESET_PARAM_MEMORY ( 1 ) ; 

WRITE_BOOLEAN( exceeded ) ; 
WRITE_BOOLEAN(exceed30) ; 



END. 
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APPENDIX E 



KNOWLEDGE BASE PROGRAM 



TITLE AMO DISPLAY 



AMO KNOWLEDGE BASE 



ASSISTANT 

MAINTENANCE 

OFFICER 



A knowledge base designed to assist the 
squadron Assistant Maintenance Officer 
in assigning maintenance personnel to 
appropriate billets. 

Author: Thomas P. Alston, LT , USN 

Date: 28 February 1987 



Press Function Key 3 STRT to start AMO. 



NUMERIC 


billet counter 


AND 


billet number 


AND 


job length 


AND 


personnel counter 


AND 


current job 


AND 


previous job 


AND 


total days in previous job 


AND 


total tad time 


AND 


nec code 
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STRING 


todays date 


AND 


date plus one month 


AND 


billet description 


AND 


work center 


AND 


minimum paygrade 


AND 


maximum paygrade 


AND 


paygrade 


AND 


desired paygrade 


AND 


billet rating 


AND 


persons rating 


AND 


social security number 


AND 


current ssn 


AND 


prospective ssn 


AND 


date reported 


AND 


prd 


AND 


eaos 


AND 


start date 


AND 


cdi for work center 


AND 


striker rating 


SIMPLEFACT 


nec required 


AND 


nec found 


AND 


billet_eof 


AND 


personnel_eof 


AND 


ssn was found 


AND 


cdi 


AND 


qar 


AND 


plane captain 


AND 


ordnance certified 


AND 


str iker 


AND 


person assigned 


AND 


has exceeded job length 


AND 


will exceed job length soon 


AND 


person meets al l_requirement s 


AND 


reenlistment intention 


FORGET ALL 


SUPPRESS ALL 


CONFIDENCE 


OFF 


UNKNOWN FAIL 



! The goal of the knowledge base is AMO_IS_DONE. 



1 . AMO IS DONE 



RULE 1 Check if goal ( AMO_IS_DONE ) is reached 

IF system initialized 

AND all_billets are filled 

AND FORGET initialize personnel counter 

AND initialize personnel counter 

AND all_per sonnel are assigned 

AND CALL printout 

THEN AMO_IS_DONE 

RULE 2 Initialize new_jobs.dbf and reenlist. dbf and 

! get todays date and date 30 days from today 

CALL init_new 

ACTIVATE get_date.com 

RETURN todays date 

RETURN date plus one month 

IF billet counter := 1 

AND personnel counter : = 1 

THEN system initialized 

! Next four rules are used to check if all billets have 
! been filled. The knowledge base starts with the 
! billet counter initialized to 1 , and cycles through 
! the Jobs. dbf file until it reaches the end of the 
! file. Originally, the rules used recursion directly 
! on "all_billets are filled" to fill approximately 170 
! billets. However, because Insight 2+ detects 
! possible infinite recursion, a method of reducing the 
! number of recursive calls had to be implemented. 

! Therefore, the rules were modified to allow approx- 
! imately 20 billets to be assigned for each level of 
! recursion. 

RULE 3 Recursive call for all_billets are filled 

IF fill some billets 

AND FORGET fill some billets 

AND fill some billets 

AND FORGET fill some billets 

AND fill some billets 

AND FORGET fill some billets 

AND fill some billets 

AND FORGET fill some billets 

AND all_billets are filled 

THEN all_billets are filled 

RULE 4 Stopping condition for all_billets are filled 
IF billet_eof 

THEN all billets are filled 
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RULE 5 Conditions for filling one billet 

IF have a billet 

AND have a person 

AND have a prospective person 

AND CALL write_it 

SEND billet number 

SEND current ssn 

SEND prospective ssn 

AND FORGET have a billet 

AND FORGET have a person 

AND FORGET have a prospective person 

AND billet counter := billet counter + 1 

THEN one billet was filled 



RULE 6 Fill some (5) billets, one 
IF one billet was filled 



AND FORGET one 
AND one billet 
AND FORGET one 
AND one billet 
AND FORGET one 
AND one billet 
AND FORGET one 
AND one billet 
AND FORGET one 
THEN fill some 



billet was 
was filled 
billet was 
was filled 
billet was 
was filled 
billet was 
was filled 
billet was 
billets 



filled 

filled 

filled 

filled 

filled 



at 



time 



RULE 7 Initialize the personnel counter 

IF personnel counter := 1 

THEN initialize personnel counter 

! Next three rules are used to check if all personnel 
! have been assigned. The knowledge base starts with 
! the personnel counter initialized to 1 , and cycles 
! through the personel.dbf file until it reaches the 
! end of the file. The rules use recursion to check 
! if all persons have been assigned. Again, the 
! recursion is modified so that the levels of 
! recursion are reduced. 



RULE 8 Check if a person has been assigned 
IF have ssn 

AND person already assigned 
AND FORGET have ssn 

AND FORGET person already assigned 

AND personnel counter := personnel counter + 1 

THEN one person is assigned 
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RULE 9 Recursive call for al l_per sonnel are assigned 

IF one person is assigned 

AND FORGET one person is assigned 

AND one person is assigned 

AND FORGET one person is assigned 

AND one person is assigned 

AND FORGET one person is assigned 

AND one person is assigned 

AND FORGET one person is assigned 

AND all_per sonnel are assigned 

THEN al l_per sonnel are assigned 

RULE 10 Stop condition for all_per sonnel are assigned 
IF per sonnel_eof 

THEN all_personnel are assigned 

RULE 11 Get a billet 
CALL get_bill 
SEND billet counter 
RETURN billet number 
RETURN billet description 
RETURN work center 
RETURN minimum pay grade 
RETURN maximum paygrade 
RETURN billet rating 
RETURN current ssn 
RETURN prospective ssn 
RETURN job length 
RETURN nec required 
RETURN nec code 
RETURN billet_eof 
IF NOT billet_eof 
THEN have a billet 



Rules that conclude "have a person" are listed 
below. These rules are used to match a billet 
with a person in the personel.dbf file. The 
knowledge base will try to assign the person who 
is currently filling the billet to that billet 
unless the person is about to leave the squadron 
due to PRD/EAOS considerations, or the person has 
been assigned to another billet, or the person is 
not currently assigned to a billet. 
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RULE 12 Check if current person is ok for the billet 
IF current ssn > "000-00-0000" 

AND social security number := current ssn 

AND have the current person 

AND prd > date plus one month 

AND eaos > date plus one month 

AND have job length information 

AND NOT has exceeded job length 

AND prospective ssn > "000-00-0000" 

AND person hasnt been assigned 

AND FORGET have the current person 

AND FORGET person hasnt been assigned 

AND FORGET have job length information 

THEN have a person 

AND need a prospective person 

RULE 13 Check if current person is ok for the billet 
IF current ssn > "000-00-0000" 

AND social security number := current ssn 

AND have the current person 

AND prd > date plus one month 

AND eaos > date plus one month 

AND have job length information 

AND NOT has exceeded job length 

AND prospective ssn <= "000-00-0000" 

AND person hasnt been assigned 
AND FORGET have the current person 
AND FORGET person hasnt been assigned 
AND FORGET have job length information 
AND FORGET need a prospective person 
THEN have a person 

RULE 14 Check if current person is ok for the billet 
IF current ssn > "000-00-0000" 

AND social security number := current ssn 

AND have the current person 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND intends to reenlist 

AND have job length information 

AND NOT has exceeded job length 

AND prospective ssn > "000-00-0000" 

AND person hasnt been assigned 

AND FORGET have the current person 

AND FORGET intends to reenlist 

AND FORGET person hasnt been assigned 

AND FORGET have job length information 

THEN have a person 

AND need a prospective person 
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RULE 15 Check if* current person is ok for the billet 
IF current ssn > "000-00-0000" 

AND social security number := current ssn 

AND have the current person 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND intends to reenlist 

AND have job length information 

AND NOT has exceeded job length 

AND prospective ssn <= "000-00-0000" 

AND person hasnt been assigned 

AND FORGET need a prospective person 

AND FORGET have the current person 

AND FORGET intends to reenlist 

AND FORGET person hasnt been assigned 

AND FORGET have job length information 

THEN have a person 

RULE 16 Check if current person is ok for the billet 
IF current ssn > "000-00-0000" 

AND social security number := current ssn 

AND have the current person 

AND prd > todays date 

AND eaos > todays date 

AND prd <= date plus one month 

AND person hasnt been assigned 

AND FORGET have the current person 

AND FORGET person hasnt been assigned 

THEN have a person 

AND need a prospective person 

RULE 17 Check if prospective person is ok for billet 
IF current ssn > "000-00-0000" 

AND prospective ssn > "000-00-0000" 

AND social security number := prospective ssn 

AND FORGET have the current person 

AND have the current person 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND FORGET need a prospective person 

AND FORGET have the current person 

AND FORGET person hasnt been assigned 

THEN have a person 
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RULE 18 Check if prospective person is ok for billet 
IF current ssn > "000-00-0000" 

AND prospective ssn > "000-00-0000" 

AND social security number := prospective ssn 

AND FORGET have the current person 

AND have the current person 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

AND intends to reenlist 

AND FORGET intends to reenlist 

AND FORGET have the current person 

AND FORGET need a prospective person 

THEN have a person 

RULE 19 Find a person to fill billet 
IF initialize personnel counter 
AND initialize desired paygrade 
AND desired paygrade < minimum paygrade 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET find a person 
AND find a person 

AND FORGET person hasnt been assigned 
AND FORGET need a prospective person 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 
THEN have a person 

RULE 20 Find a person to fill billet 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND nec required 

AND person has nec 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET person has nec 

AND FORGET need a prospective person 

THEN have a person 
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RULE 21 Find a person to fill billet 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND nec required 

AND person has nec 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

AND intends to reenlist 

AND current ssn := social security number 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 
AND FORGET need a prospective person 
AND FORGET person has nec 
AND FORGET intends to reenlist 
THEN have a person 

RULE 22 Find a person to fill billet 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND production work center 

AND FORGET production work center 

AND cdi 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET need a prospective person 

THEN have a person 
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RULE 23 Find a person to fill billet 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND production work center 

AND FORGET production work center 

AND cdi 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND intends to reenlist 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET need a prospective person 

AND FORGET intends to reenlist 

THEN have a person 

RULE 24 Find a person to fill billet 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND cdi 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET need a prospective person 

THEN have a person 
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RULE 25 Find a person to fill billet 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND cdi 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND intends to reenlist 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET need a prospective person 

AND FORGET intends to reenlist 

THEN have a person 

RULE 26 Find a person to fill billet 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "250" 

AND ordnance certified 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET need a prospective person 

THEN have a person 
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RULE 27 Find a person to fill billet 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "230" 

AND ordnance certified 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

AND intends to reenlist 

AND current ssn := social security number 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 
AND FORGET need a prospective person 
AND FORGET intends to reenlist 
THEN have a person 

RULE 28 Find a person to fill billet 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "310" 

AND plane captain 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET need a prospective person 

THEN have a person 

RULE 29 Continue looking for a person 
IF FORGET have a possible person 
AND personnel counter := personnel counter + 1 
AND current ssn := "000-00-0000" 

AND have a person 
THEN have a person 
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RULE 30 Is work center a production work center 



IF 


work 


center 


= 


"110" 


OR 


work 


center 


= 


"120" 


OR 


work 


center 


= 


"1 2C" 


OR 


work 


center 


= 


"1 3A" 


OR 


work 


center 


= 


" 13B" 


OR 


work 


center 


= 


"210" 


OR 


work 


center 


= 


"220" 


OR 


work 


center 


= 


"230" 


OR 


work 


center 


= 


"260" 


OR 


work 


center 


= 


"280" 



THEN production work center 

! Next rules conclude "find a person" is used when the 
! search could not find a person who meets all 
! requirements, so another search is conducted to find 
! a person who meets the minimum requirements. 

RULE 31 Find a person to fill billet 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND desired paygrade < minimum paygrade 

AND current ssn := "none found" 

AND social security number := "none found" 

AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 
THEN find a person 
AND need a prospective person 

RULE 32 Find a person to fill billet 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

AND prospective ssn <= "000-00-0000" 

AND current ssn := social security number 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 
AND FORGET need a prospective person 
THEN find a person 
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RULE 33 Find a person to fill billet 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND NOT nec required 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 

AND FORGET person hasnt been assigned 

AND FORGET initialize personnel counter 

AND FORGET initialize desired paygrade 

AND FORGET have a possible person 

AND FORGET need a prospective person 

THEN find a person 

RULE 34 Continue looking for a person 
IF FORGET have a possible person 
AND personnel counter := personnel counter + 1 
AND current ssn := "000-00-0000" 

AND find a person 
THEN find a person 

! Rule that concludes "person has nec" 

RULE 35 Check if person has the required nec 
CALL checknec 

SEND social security number 

SEND nec code 

RETURN nec found 

IF nec found 

THEN person has nec 

! Rules that conclude "have a prospective person" 

RULE 36 Find a prospective person 
IF NOT need a prospective person 
AND prospective ssn := " " 

AND FORGET need a prospective person 
THEN have a prospective person 
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RULE 37 Find a prospective person 
IF prospective ssn > "000-00-0000" 

AND social security number := prospective ssn 

AND FORGET have the current person 

AND have the current person 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

AND current ssn <> social security number 

AND FORGET have the current person 

THEN have a prospective person 

RULE 38 Find a prospective person 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND desired paygrade < minimum paygrade 

AND prospective ssn := "none found" 

AND social security number := "none found" 

AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 
THEN have a prospective person 

RULE 39 Find a prospective person 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND nec required 

AND person has nec 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

AND FORGET person has nec 

THEN have a prospective person 

RULE 40 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND billet rating = "ANY" 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 
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RULE 41 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = ”040" 

AND qar 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 

RULE 42 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND billet rating = "AD" 

AND have a possible person 
AND cdi 

AND cdi for work center = "110" 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 

RULE 43 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND billet rating = "AE" 

AND cdi 

AND cdi for work center = "220" 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 



RULE 44 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND billet rating = "AME" 

AND cdi 

AND cdi for work center = "13B" 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 

RULE 45 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND billet rating = "AMH" 

AND cdi 

AND cdi for work center = "120" 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 

RULE 46 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND billet rating = "AQ" 

AND cdi 

AND cdi for work center = "280" 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 



RULE 47 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND work center = "040" 

AND billet rating = ”A0" 

AND cdi 

AND cdi for work center = "230" 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 

RULE 48 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND work center = "310" 

AND have a possible person 

AND plane captain 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

AND have job length information 

AND NOT has exceeded job length 

THEN have a prospective person 

RULE 49 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND work center = "230" 

AND have a possible person 

AND ordnance certified 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 
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RULE 50 Find a prospective person 
IF initialize personnel counter 
AND initialize desired paygrade 
AND have a possible person 
AND cdi 

AND cdi for work center = work center 

AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 

THEN have a prospective person 

RULE 51 Find a prospective person 
IF FORGET have a possible person 
AND personnel counter := personnel counter + 1 
AND prospective ssn := '*000-00-0000" 

AND have a prospective person 
THEN have a prospective person 

! Next rules conclude "have a possible person" 

RULE 52 Check if no one has been found 
IF desired paygrade < minimum paygrade 
THEN have a possible person 



1 08 



RULE 53 Call GET_PERS.PAS 

CALL get_pers 

SEND personnel counter 

SEND billet rating 

SEND desired paygrade 

RETURN ssn was found 

RETURN social security number 

RETURN persons rating 

RETURN paygrade 

RETURN date reported 

RETURN prd 

RETURN eaos 

RETURN current job 

RETURN start date 

RETURN previous job 

RETURN total days in previous 

RETURN cdi 

RETURN cdi for work center 
RETURN qar 

RETURN plane captain 
RETURN ordnance certified 
RETURN striker 
RETURN striker rating 
RETURN total tad time 
RETURN personnel counter 
IF ssn was found 
THEN have a possible person 



job 



RULE 54 If person wasn’t found, then use recursion to 

! find a person at the next lower paygrade 

IF NOT ssn was found 

AND CALL next_pg 

SEND desired paygrade 

RETURN desired paygrade 

AND personnel counter := 1 

AND have a possible person 

THEN have a possible person 



RULE 55 Initialize "desired paygrade" 

IF desired paygrade := maximum paygrade 
AND FORGET person meets all_requirements 
THEN initialize desired paygrade 

RULE 56 Assert person meets al l_r equir ement s 
IF 1 = 1 

THEN assert person meets al l_r equir ements 
AND person meets all_requirements 

RULE 57 
IF 0 = 1 

THEN person meets all_requirements 
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RULE 58 
IF 0 = 1 

THEN need a prospective person 

RULE 59 Check if person has been in job too long 

ACTIVATE job_time.com 

SEND start date 

SEND todays date 

SEND job length 

RETURN has exceeded job length 
RETURN will exceed job length soon 
THEN have job length information 



RULE 60 Get a person when you have a ssn 
CALL get_pssn 

SEND social security number 

RETURN ssn was found 

RETURN persons rating 

RETURN paygrade 

RETURN date reported 

RETURN prd 

RETURN eaos 

RETURN current job 

RETURN start date 

RETURN previous job 

RETURN total days in previous job 

RETURN cdi 

RETURN cdi for work center 
RETURN qar 

RETURN plane captain 
RETURN ordnance certified 
RETURN striker 
RETURN striker rating 
RETURN total tad time 
RETURN personnel counter 
IF ssn was found 
THEN have the current person 



RULE 61 Call CHECK_NJ . PAS 
CALL check_nj 

SEND social security number 
RETURN person assigned 
IF NOT person assigned 
THEN person hasnt been assigned 
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RULE 62 Call REENLIST. PAS 
CALL reenlist 

SEND social security number 
RETURN reenlistment intention 
IF reenlistment intention 
THEN intends to reenlist 

! The next three rules are used to satisfy 
! "all_personnel assigned". The rules get a 
! social security number from the personel.dbf 
! file and then check to see if it is in the 
! new_j obs . dbf file. If not, then it assigns 
! that person to a work center. 

RULE 63 Get ssn to check if person has been assigned 

CALL get_ssn 

SEND personnel counter 

RETURN social security number 

RETURN per sonnel_eof 

IF NOT per sonnel_eof 

THEN have ssn 

RULE 64 Check if person is already assigned 
CALL check_nj 

SEND social security number 
RETURN person assigned 
IF person assigned 
THEN person already assigned 
ELSE assign person 

RULE 65 Check if person has already checked out 
! of the squadron 
IF assign person 
AND get the persons data 
AND prd <= todays date 
AND person has checked out 
AND FORGET assign person 
AND FORGET get the persons data 
AND FORGET person has checked out 
THEN person already assigned 



RULE 66 Assign a person when all billets are filled 

IF assign person 

AND get the persons data 

AND work center found 

AND CALL wr ite_i t 

SEND billet number 

SEND social security number 

SEND work center 

AND FORGET assign person 

AND FORGET get the persons data 

AND FORGET work center found 

THEN person already assigned 

This rule is invoked after all billets have been 
assigned and there are "extra" persons in the 
personel.dbf file who need to be assigned to a 
work center . 



RULE 67 Get the "extra" person’s data 

CALL get_prsn 

SEND personnel counter 

RETURN ssn was found 

RETURN social security number 

RETURN persons rating 

RETURN paygrade 

RETURN date reported 

RETURN prd 

RETURN eaos 

RETURN current job 

RETURN start date 

RETURN previous job 

RETURN total days in previous job 

RETURN cdi 

RETURN cdi for work center 
RETURN qar 

RETURN plane captain 
RETURN ordnance certified 
RETURN striker 
RETURN striker rating 
RETURN total tad time 
IF ssn was found 
THEN get the persons data 

The following rules’ conclusion is "work center 
found", for assigning "extra" personnel. The 
person will be assigned to his current work center 
if he meets the criteria in the next 3 rules; and 
the other rules determine an appropriate work center 
based on rating and paygrade. 
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RULE 68 Assign him to his current work center 

IF current j ob > 0 

AND prd > date plus one month 

AND eaos > date plus one month 

AND get a work center 

AND not_a tad billet 

AND have job length information 

AND NOT has exceeded job length 

AND billet number := 9999 

AND FORGET have job length information 

AND FORGET get a work center 

AND FORGET not_a tad billet 

THEN work center found 

RULE 69 Assign him to his current work center 

IF current job <> 0 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND intends to reenlist 

AND get a work center 

AND not_a tad billet 

AND have job length information 

AND NOT has exceeded job length 

AND billet number := 9999 

AND FORGET intends to reenlist 

AND FORGET have job length information 

AND FORGET get a work center 

AND FORGET not_a tad billet 

THEN work center found 

RULE 70 Assign him to his current work center 

IF current job > 0 

AND prd <= date plus one month 

AND get a work center 

AND not_a tad billet 

AND have job length information 

AND NOT has exceeded job length 

AND billet number := 9999 

AND FORGET have job length information 

AND FORGET get a work center 

AND FORGET not_a tad billet 

THEN work center found 

RULE 71 Person hasn’t arrived on board yet 

IF start date > date plus one month 

AND billet number := 9999 

AND work center := start date 

THEN work center found 
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RULE 72 Assign to Material Control 
IF persons rating = "AK" 

AND billet number := 9999 
AND work center := "050" 

THEN work center found 

RULE 73 Assign to Material Control 
IF paygrade <= "E3" 

AND striker 

AND striker rating = "AK" 

AND billet number := 9999 
AND work center := "050" 

THEN work center found 

RULE 74 Assign to Maintenance Control 
IF persons rating = "AZ" 

AND billet number := 9999 
AND work center := "020" 

THEN work center found 

RULE 75 Assign to Maintenance Control 
IF paygrade <= "E3" 

AND striker 

AND striker rating « "AZ" 

AND billet number := 9999 
AND work center := "020" 

THEN work center found 

RULE 76 Assign to Corrosion Control 
IF paygrade <= "E3" 

AND persons rating = "AMS" 

AND billet number := 9999 
AND work center := "12C" 

THEN work center found 

RULE 77 Assign to Corrosion Control 
IF paygrade <= "E3" 

AND striker 

AND striker rating = "AMS" 

AND billet number := 9999 
AND work center := "12C" 

THEN work center found 

RULE 78 Assign to Line Division 
IF paygrade <= "E3" 

AND billet number := 9999 
AND work center := "310" 

THEN work center found 
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RULE 79 Assign to Power Plants 
IF paygrade >= "E7" 

AND persons rating = "AD" 

AND billet number := 9999 
AND work center := "100" 

THEN work center found 

RULE 80 Assign to Power Plants 
IF paygrade >= "E4" 

AND persons rating = "AD" 

AND billet number := 9999 
AND work center := "110" 

THEN work center found 

RULE 81 Assign to Airframes 
IF persons rating = "AM" 

AND billet number := 9999 
AND work center := "100" 

THEN work center found 

RULE 82 Assign to Airframes 
IF paygrade >= "E4" 

AND persons rating = "AMS" 

AND billet number := 9999 
AND work center := "120" 

THEN work center found 

RULE 83 Assign to Airframes 
IF paygrade >= "E4" 

AND persons rating = "AMH" 

AND billet number := 9999 
AND work center := "120" 

THEN work center found 

RULE 84 Assign to PR Branch 
IF paygrade >= "E4" 

AND persons rating = "PR" 

AND billet number := 9999 
AND work center := "13A" 

THEN work center found 

RULE 85 Assign to AME Branch 
IF paygrade >= "E4" 

AND persons rating = "AME" 

AND billet number := 9999 
AND work center := "13B" 

THEN work center found 



RULE 86 Assign to Avionics 
IF paygrade >= "E7" 

AND persons rating = "AT" 

AND billet number := 9999 
AND work center := "200" 

THEN work center found 

RULE 87 Assign to Avionics 
IF paygrade >= "E7" 

AND persons rating = "AE" 

AND billet number := 9999 
AND work center := "200" 

THEN work center found 

RULE 88 Assign to Avionics 
IF paygrade >= "E7" 

AND persons rating = "AQ" 

AND billet number := 9999 
AND work center := "200" 

THEN work center found 

RULE 89 Assign to Avionics 
IF paygrade >= "E4" 

AND persons rating = "AT" 

AND billet number := 9999 
AND work center := "210" 

THEN work center found 

RULE 90 Assign to Avionics 
IF paygrade >= "E4" 

AND persons rating = "AE" 

AND billet number := 9999 
AND work center := "220" 

THEN work center found 

RULE 91 Assign to Ordnance 
IF paygrade >= "E4" 

AND persons rating = "AO" 

AND billet number := 9999 
AND work center := "230" 

THEN work center found 

RULE 92 Assign to Radar/Fire Control Branch 
IF paygrade >= "E4" 

AND persons rating = "AQ" 

AND billet number := 9999 
AND work center := "260" 

THEN work center found 
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! This rule gets a work center and job length when the 
! current job is provided 

RULE 93 Get the work center he is assigned to 
CALL work_ctr 
SEND current job 
RETURN work center 



RETURN job length 
THEN get a work center 

RULE 94 Determine if billet is not a TAD billet 



IF 


work 


center 


= "020 


OR 


work 


center 


= "030 


OR 


work 


center 


= "040 


OR 


work 


center 


= " 04A 


OR 


work 


center 


= " 04C 


OR 


work 


center 


= "050 


OR 


work 


center 


= "100 


OR 


work 


center 


= "110 


OR 


work 


center 


= "120 


OR 


work 


center 


= "12C 


OR 


work 


center 


= "13A 


OR 


work 


center 


= "13B 


OR 


work 


center 


= "140 


OR 


work 


center 


= "200 


OR 


work 


center 


= "210 


OR 


work 


center 


= "220 


OR 


work 


center 


= "230 


OR 


work 


center 


= "260 


OR 


work 


center 


= "280 


OR 


work 


center 


= "300 


OR 


work 


center 


= "310 


OR 


work 


center 


= "320 


THEN not a tad 


billet 



END 
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